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1000 

1000 
1002 
1004 
1005 
1008 
lOOA 
lOOC 
lOOE 
1010 
1012 
1014 

1020 
1022 
1024 
1026 
1028 



1030 
1032 
1034 
1036 
1038 
103A 
103C 
103E 
1040 
1042 
1044 
1048 
104A 
104C 
104E 
1050 
1052 
1054 
1056 
1057 
1058 
105A 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

i 1 

X J. 

12 

13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



BCA/1/e Z-IOP.bca;pnew z-iop.mb@P@ 
Current version is version 1.5 

Last change: 

moved interrupt vectors to RAM to allow disk 
programs to use interrupts not used by rom 



This file contains the code that will be resident 

in the lOP rom with BOOTABLE disks--Interim arrangement 

Author: Bruce Horn 

Last changed: June 18, 1979 3:19 PM 



Predefine 



"8086Predef s.sr" 



.Get "Z-IOPRamDefs.bca' 
Z-IOPRamDefs.bca 



;Ram locations. . 



This file contains the TOP Ram locations and symbols, 
The lOP can address ram beginning at lOOOH 
All state is booted from the disk 

Author: Bruce Horn 

Last changed: June 18, 1979 3:04 PM 



.DAM H/^f -5 r. -; + •! /-. r 



f rtl 1 nu, 



:The following is PRIVATE to the 10 processor 



IOPRam= 

BitsGone= 

Count= 

Mask = 

Gffset= 

Templ= 

IRR = 

PortlOO= 

Port60= 

Port20= 

KbdOffset= 

01dKbdData= 

R0 = 
Rl = 
R2 = 
R3 = 
BitErrors= 



.ShowNewCursor= 

.DisplayOn= 

.DisplayOff= 

.WaitBUg= 

.WaitNoBug= 

. IntsOn= 

.IntsOff= 

.SetP60= 

.IOInit= 

DStatus= 

JumpTo= 

WextDisk= 

ReTry= 

BeginAdr= 

BeginSeg= 

01dAdr= 

01dSeg= 

Blocks= 

Track= 

Sector= 

.Buffer= 

Buffer= 



1000 

lOPRam 

BitsGone+2. 

Count+2. 

Mask+2. 

Offset+2. 

Temp 1+2. 

IRR+2. 

PortlOO+2. 

Port60+2. 

Port20+2. 

KbdOffset+2. 

OldKbdData+12 

RO+2. 

Rl+2. 

R2+2. 

R3+2. 



BitErrors+8. 

. ShowNewCur$or+2 

.DisplayOn+2. 

.DisplayOff+2. 

.WaitBug+2. 

.WaitNoBug+2. 

.IntsOn+2. 

.IntsOff+2. 

.SetP60+2. 

.IOInit+2. 

DStatus+2. 

JumpTo+4. 

MextDisk+2. 

ReTry+2. 

BeginAdr+2. 

BeginSeg+2. 

OldAdr+2. 

OldSeg+2. 

Blocks+2. 

Track+1. 

Sector+1. 

.Buffer+2. 



lOP Ram begins at this address 

Kbd Handler temp 

temp 

temp 

temp (Meta keys modify this) 

Temp for interrupt routine 

Interrupt mask (IntsOn/Off) 

portlOO settings 

Port60 settings 

port20 settings 

current byte address on input 

6 word keyboard input, old 

;various temporary registers 
;for rom to use 



;following 8 bytes are bit errors 
;from mem test 

;Other useful rom routines 



disk status on fail 

Byte/Seg address of init routine 

another disk after this one? 

Retry counts/sector r/w 

Begin loading address 

Begin loading segment 

Last address since R/W sector 

Last segment 

Blocks to read 

Current track 

Current sector 

location of disk buffer 

128 char disk buffer 
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2000 



2000 
2002 
2004 
2006 
2008 
200A 
200C 



200E 
2010 
2012 
2014 
2016 
2018 
201A 
201C 
201E 
2020 
2022 
2024 
2026 
2028 
202A 
202B 
202C 
202D 
202F 
2031 
2033 
2036 
2038 
203A 
207A 
207C 
2094 
20DO 
210C 
210E 
211E 
2120 
2122 
2126 
212A 
212E 
2136 
2136 
213E 
2140 
214E 
215E 
2160 
2162 
2164 
216C 

22A0 

22A0 
22A5 
22AA 
22AF 
22B4 
22B9 
22BE 
22C3 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 



89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 



;The following is PUBLIC information--The emulator processor can 
;acidress this information, and possibly alter it 



EPRani= 2000 

;Routines available in ROM 



BitBlt= 

SetP100= 

SetP20= 

InitDC= 

HideCursor= 

ShowCursor= 

RomInit= 



EPRam 

.BitBlt+2. 

.SetPlOO+2. 

.SetP20+2. 

.InitDC+2. 

.HideCursor+2, 

.ShowCursor+2, 



;Other reserved locations 



QByte= 

QSeg = 

QLock= 

ICount= 

01dICount= 

KbdStatus= 

MouseX= 

MouseY= 

RMX = 

RMY = 

RMW= 

RMH = 

01dMX= 

01dMY= 

KbdData= 

MYDelta= 

MXDelta= 

KW0 = 

KW1 = 

KW2 = 

KW3 = 

ReadPtr= 

WritePtr= 

KbdBuffer= 

IntKey= 

DCInits= 

CDF = 

ADF = 

NIChars= 

ICList= 

. Cursor= 

. Display= 

.CursorTable= 

.BBTable= 

.KbdMap= 

CTHeader= 

CursorTable= 

DisplayBits= 

CursorX= 

CursorY= 

CursorBits= 

CursorXOff= 

CursorYOff= 

CursorLock= 

BBHeader= 

BBTable= 

Ramlnts= 

IR00 = 
IR01 = 
IR02 = 
IR03 = 
IR04 = 
IR05 = 
IR06 = 
IR07 = 



.RoniInit+2. 

QByte+2. 

QSeg+2. 

QLock+2. 

ICount+2. 

OldICount+2. 

KbdStatus+2. 

MouseX+2 

MouseY+2. 

RMX+2. 

RMY+2. 

RMW+2 . 

RMH+2. 

OldMX+2. 

OldMY+2. 

KbdData+1. 

KbdData+2. 

KbdData+3. 

KbdData+5. 

KbdData+7. 

KbdData+9. 

KbdData+12. 

ReadPtr+2. 

WritePtr+2. 

KbdBuffer+64. 

IntKey+2. 

DCInits+24. 

CDF+60. 

ADF+60. 

MIChars+2. 

ICList+16. 

.Cursor+2 . 

.Display+2. 

.CursorTable+4. 

.BBTable+4. 

.KbdMap+4. 

CTHeader+8. 

CursorTable+0. 

CursorTable+8. 

CursorX+2 

CursorTable+24. 

CursorTable+40. 

CursorXOff+2. 

CursorYOff+2. 

CursorTable+46. 

BBHeader+8. 

22A0 

Ramlnts 
IROO+5. 
IROl+5. 
IR02+5. 
IR03+5. 
IR04+5. 
IR05+5. 
IR06+5. 



;EP can address ram starting here 



address of BitBLT routine 
address of portlOO routine 
port 20 

display controller init 
hides, locks cursor 
unlocks, shows cursor 
initializes rom 



TRB Queue Header 

segment of last block 

Queue locked-->negati ve 

60hz interrupt counter 

old interrupt count for change 

#chars in buffer|mouse buttons 

Mouse X position 

Mouse Y position 

Defines restricted rectangle 
for mouse--X, Y. Width. Height 
Mouse cannot move outside 
this rectangle 

old MouseX since cursor 

Old MouseY since cursor 

Keyboard data from Kbd UART {6w) 

Mouse Y delta 

Mouse X delta 

Keyboard word zero 

Keyboard word one 

Keyboard word two 

Keyboard word three 

Read Pointer for kbd buffer 

Write Pointer 

32 character kbd buffer 

has an interrupt key been hit? 

Display controller init table 

Current Disk Format 

Alternate Disk Format 

number of interrupt keys 

[char], [char]. . .[char] <=8 

2 byte oop 

2 byte oop of display 

2 word addr. to cursor bb table 

2 word addr. to display bb table 

2 word address to Keyboard Map 

TRB header for Cursor table 

Cursor bitblt table 

display bitmap loc in table 

Cursor X position 

Cursor Y position 

cursor bitmap loc in table 

cursor x offset 

cursor y offset 

should cursor change? 

TRB header for BB table 

Display bitblt table 



ParErrInt 

IPSysInt 

Diskint 

EIAInt 

Oddint 

ADCInt 

Kbdlnt 

VSyncInt 
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0000 
0002 
FFFF 
0000 

oooc 



0000 
0002 
0004 
0006 
0008 
OOOA 
OOOC 
OOOE 
0010 
0012 
0014 
0016 
0018 
OOIA 

yjyj n^ 

OOIE 
0020 
0022 
0024 
0026 



FFFC 
FFFB 
FFC7 
FE3F 
FIFF 
EFFF 
DFFF 
3FFF 



FCFF 
E3FF 
BFFF 
DFFF 
7FFF 



FFFO 
FFEF 
FFDF 
FFBF 
FF7F 



0000 
0002 
OOEF 
OOBF 



134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 

1 c i 

i u ± 

162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
20 
21 
1 



;The following are some useful constants that should be listed 
;as external : 



CurrentDS= 

XorBB= 

Black= 

White= 

StcBB= 





02 

OFFFF 



OC 



;BitBLT table offsets-- 



BBDB = 

BBDS = 

DRast= 

DField= 

DestX= 

DestY= 

DestW= 

DestH= 

ClipX= 

ClipY= 

ClipW= 

ClipH= 

BBSB = 

BBSS = 

QO^ r* + - 

SField= 
SourceX= 
SourceY= 
Function= 
GrayBits = 



0. 

2. 

4. 

6. 

8. 

10. 

12. 

14. 

16. 

18. 

20. 

22. 

24. 

26. 
oa 

30. 
32. 
34. 
36. 
38. 



current code, data segment 

bitblt XOR 

Black 

White for bitblt store constant 

Store constant 



BitBLT Destination Byte address 

BB Destination Segment address 

Destination raster 

Destination field size 

Destination X 

Destination Y 

Destination Width 

Destination Height 

Clip X 

Clip Y 

Clip Width 

CI ip Height 

BitBLT Source Byte address 

BitBlt Source Segment address 

Source raster 

Source Field size 

Source X 

Source Y 

Function 

Gray bits 



;PortlOO Fields: (Disk/ADC selects) 



DiskPower= 

DiskSide= 

DiskDrive= 

ADCDevice= 

BitClk= 

DiskMR= 

GoWordClock= 

ADCSpeed= 



OFFFC 
OFFFB 
0FFC7 
0FE3F 
OFIFF 
OEFFF 
ODFFF 
03FFF 



+5=2, +12=1 

Side zero/one 

Dl=4, D2=2, D3=l 

Device select 

Bit clock field 

Disk Controller master reset 

StopWordClock' 

ADC sampling rate 



;Port60 Fields: (DAC/Tablet selects) 



TabletSelect= 
DACSpeed= 
SampleHoldA= 
SampleHoldB= 



OFCFF 
0E3FF 
OBFFF 
ODFFF 



SampleNotHold= 07FFF 



2=Tablet X, l=Tablet Y 
DAC sampling rate 
Sample/Hold channel A 
Sample/Hold channel B 
Sample/Hold' 



;Port20 Fields: (lOP Processor selects) 



LEDSOn= 

DisableRom= 

CharCtr= 

IOPLock= 

BootSeqDone= 



OFFFO 
OFFEF 
OFFDF 
OFFBF 
0FF7F 



;Ports and other port fields 
ic= 

ocwl= 2 

ir4= OEF 

ir6= OBF 



.END 

.Get "Z-Boot.bca" 
Z-Boot.BCA 



Light LEDs. 1111 lights all 

Run out of main mem only 

Char counter 

TOP Processor lock 

Stop mapping mem req into Rom 



interrupt controller 
interrupt controller wordl 
defines Oddint field 
defines Kbdint field 



; debugger 
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0000 
0000 



1000 
3000 
2E00 



0000 



0000 


9F 


01 


0002 


00 


00 


0004 


B7 


01 


0006 


00 


00 


0008 


CF 


01 


GOGA 


00 


00 


OOOC 


E7 


01 


OOOE 


00 


00 


0010 


FF 


01 


0012 


00 


00 



0080 



0080 


AO 


22 


0082 


00 


00 


0084 


A5 


22 


0086 


00 


00 


0088 


AA 


22 


008A 


00 


00 


008C 


AF 


22 


008E 


00 


00 


0090 


B4 


22 


0092 


00 


00 


0094 


B9 


22 


0096 


00 


00 


0098 


BE 


22 


009A 


00 


00 


009C 


C3 


22 


009E 


00 


00 



OOAO EA A7 

00A5 EA BF 

OOAA EA D7 

OOAF EA EF 

0084 EA 46 

0OB9 EA 07 

OOBE EA 76 

0OC3 EA IF 



07 00 00 

07 00 00 

07 00 00 

07 00 00 

07 00 00 

08 00 00 

07 00 00 

08 00 00 



OFFO 

OFFO EA DO 00 00 00 

OODO 



2 
3 

4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 



This file contains the boot code to enable the lOP to boot 

from the minifloppy. It calls routines in Z-DRW.bca and 

Z-Subs.bca to read/write the disk 

Author: Bruce Horn 

Last edited: June 18, 1979 3:18 PM 



; segments 

Ram = 
Rom = 

; mem test range 

first = 1000 
past = 3000 
FirstSP= 2E00 

;8085 Interrupt vector 

.loc 

. adr DivErr 

.adr ram 

.adr SST 

.adr ram 

.adr NMI 

a H p P3,ff! 

.adr BPT 
.adr ram 
.adr OVF 
.adr ram 

;8259 Interrupt vector 

.loc 4*020 

.adr IROO 

.adr Ram 

.adr IROl 

.adr Ram 

.adr IR02 

.adr Ram 

.adr IR03 

.adr Ram 

.adr IR04 

.adr Ram 

.adr IR05 

.adr Ram 

.adr IR06 

.adr Ram 

.adr IR07 

.adr Ram 

IntVectors: 



jmps 
jmps 
jmps 
jmps 
jmps 
jmps 
jmps 
jmps 



ParErrInt Rom 
IPSysInt Rom 
Diskint Rom 
EIAInt Rom 
Oddint Rom 
ADCInt Rom 
Kbdint Rom 
VSyncInt Rom 

.loc OFFO 



jmps restart rom 
.loc ODO 

Restart: 



;low boundary 
;high boundary 



;interrupt vector (if sys=0) 

;type divide error 

;type 1 single step 

;type 2 nmi 

;type 3 breakpoint 

;type 4 overflow 



ParErrInt 

IPSysInt 

DiskInt 

EIAInt 

OddInt 

ADCInt 

Kbdint 

VSyncInt 



; reset vector 
; sets CS=F00O(O; 
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OODO FA 

OODi B8 00 00 

00D4 BE DO 

00D6 BE D8 

00D8 BE CO 

OODA BO 88 

OODC BA 20 00 
OODF EE 

OOEO BB 00 00 

00E3 EB 08 



00E5 00 00 

00E7 04 01 

00E9 OD 01 

OOEB 16 01 



OOED B9 01 00 

OOFO B8 00 70 

00F3 FF C8 

00F5 75 FC 

00F7 B8 00 70 

OOFA E2 F7 

OOFC FF C3 

OOFE FF C3 

0100 FF A7 E5 00 



0104 B8 02 00 

0107 BA 00 01 

OlOA EF 

OlOB EB EO 

OlOD B8 03 00 

Olio BA 00 01 

0113 EF 

0114 EB D7 



0116 


B2 


00 




0118 


BF 


00 


00 


OllB 


FE 


C2 




OllD 


FF 


C7 




OllF 


FF 


C7 




0121 


80 


FA 


01 


0124 


74 


IC 




0126 


80 


FA 


02 


0129 


74 


17 




012B 


80 


FA 


03 


012E 


74 


12 




0130 


80 


FA 


04 


0133 


74 


OD 




0135 


E9 


39 


00 



0138 00 00 

013A FF FF 

013C 00 00 

013E AA AA 

0140 55 55 



0142 BE 00 10 

0145 8B 9D 38 01 

0149 89 IC 

014B FF C6 

014D FF C6 

014F 81 FE 00 30 

0153 72 F4 



78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 



;First, disable interrupts and zero all segment registers 

cli 

mov ax,#0 

mov ss.ax 

mov ds.ax 

mov es.ax 
;Stop mapping all mem requests into Rom-- 



mov 

mov 

outd 

mov 

J 

.adr 
. adr 
. adr 
. adr 



al,#88 
dx,#20 

bx,#0 
waitSec 



;BootSequenceDone 

; ErrorCorrectionOff 
;start dispatch with 2 



; not used 



and 



waitsec: 



LP: 



plus5: 



plusl2: 



mov 
mov 

dec 

jnz 

mov 

loop 

i nc 

inc 

jmpi 



mov 
mov 
outdw 
J 

mov 
mov 
outdw 
J 





plus5 

plusl2 

start ;ramtest label 



cx,#l 
ax, #7000 

ax 

LP 

ax, #7000 

LP 

bx 

bx 

Xlbx ;jump to routine 



ax, #2 ;+5 volts on 
dx,#100 

waitSec 

ax, #3 ;+12 volts on 
dx ,#100 



waitSec 
;Test low ram for errors-- 



start: mov 
mov 



again; 



inc 
inc 
inc 
cmp 

je 
cmp 

je 
cmp 

je 
cmp 

je 
jmp 



BitsTable: 

. adr 
. adr 
.adr 
.adr 
. adr 



dl,#0 
di,#0 

dl 

di 

di 

dl,#l 

Xtest 

dl,#2 

Xtest 

dl,#3 

Xtest 

dl,#4 

Xtest 

Bootit 





OFFFF 

00000 

OAAAA 

05555 



;test number in dl 
;and offset in di 

on to the next test 

and the next offset 

incremented by 2 for word 

dispatch on dl 

it fits 

test 2 

it fits 

test 3 

it fits 

test 4 

it fits 

assume the RAM works 



;not used 
;Ones 
; Zeroes 
;AAAA 
-.5555 



;write bits in location and read back 

Xtest: mov si,#first ; ram address «- 

mov bx,BitsTable!di 

13: mov 0!si,bx ;write in bits 

inc si 

inc si 

cmp si,#past ;end or ram 

jb 13 ;llop if below 
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0155 B9 00 00 

0158 BE 00 10 

0158 8B 04 

015D 33 C3 

015F OB C8 

0161 FF C6 

0163 FF C6 

0165 81 FE 00 30 

0169 72 FO 

016B 89 8D 28 10 

016F EB AA 



0171 BC 00 2E 

0174 B8 00 00 

0177 50 

0178 9D 

0179 FC 

017A BE AO 00 
017D BF AO 22 

0180 B9 28 00 

0183 F2 

0184 A4 

0185 E8 78 OA 
0188 E8 7C 08 
018B 2E 

018C C7 06 46 10 00 00 

0192 2E 

0193 FF IE 44 10 
0197 E8 AO 04 
019A E8 94 04 
019D EB F3 



019F B8 00 00 

01A2 BB FO FF 

01A5 E8 88 04 

01A8 E8 6D 04 

01A8 E8 78 04 

OlAE 2E 

OlAF Al A9 OD 

01B2 E8 8E 04 

0186 EB FE 



0187 B8 01 00 

OIBA BB FO FF 

OIBD E8 AO 04 

OICO E8 55 04 

01C3 EB 63 04 
01C6 2E 

01C7 Al A9 OD 

OICA E8 76 04 

OICD EB FE 



OICF B8 02 00 

01D2 BB FO FF 

01D5 E8 88 04 

01D8 E8 3D 04 

OlDB E8 48 04 
OlDE 2E 

OlDF Al A9 OD 

01E2 E8 5E 04 

01E5 EB FE 



01E7 



03 00 



154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 

1 oo 

184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 



14: 



mov 


cx,#0 


mov 


si ,#f irst 


mov 


ax,0!si 


xor 


ax.bx 


or 


ex, ax 


inc 


si 


inc 


si 


cmp 


si ,#past 


jb 


14 


mov 


BitErrors 


jmp 


again 



;mask of which bits are bad 

; ram address 

;read back ram location contents 

;any bits different? 

;or them into mask 



iend of ram 
;next 



BitErrorsidi ,cx ;Save error log in low mem 
; start all over 



;The ram works, so now boot from the disk 
Bootit: 



RunAgain; 



DivErr: 



HO: 



SST; 



HI 



NMI 



H2: 
BPT: 



mov 

mov 

push 

popf 

eld 

mov 

mov 

mov 

rep 

IIIU V u 

call 
call 
seg 
mov 
i: 
seg 

call is 
call 
call 



mov 

mov 

call 

call 

call 

seg 

mov 

call 

J 



mov 

mov 

call 

call 

call 

seg 

mov 

call 

J 



mov 

mov 

call 

call 

call 

seg 

mov 

call 

j 



mov 



sp,#f irstSP 

ax,#0 
ax 



si ,#IntVectors 
di ,#RamInts 
ex, #40. 



Romlnit 
LoadFloppy 
cs 
JumpTo+2,##0 

es 

JumpTo 
WaitNoBug 
WaitBug 
RunAgain 



ax,#0 

bx,#LedsOn 

SetP20 

IntsOn 

DisplayOn 

cs 

ax, . ErrorCursor 

ShowNewCursor 

HO 



ax,#l 

bx,#LedsOn 

SetP20 

IntsOn 

DisplayOn 

cs 

ax, .ErrorCursor 

ShowNewCursor 

HI 



ax, #2 

bx,#LedsOn 

SetP20 

IntsOn 

DisplayOn 

cs 

ax, : ErrorCursor 

ShowNewCursor 

H2 



ax, #3 



-.initialize SP 
; zero flags 



up 1 



rjt Q r rMn + 



set segment to zero 



call the routine 
and in case it returns., 
wait for no bug first, then 
run prog again on next bug 
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OlEA BB FO FF 

OlED E8 70 04 

OlFO E8 25 04 

01F3 E8 33 04 
01F6 2E 

01F7 Al A9 OD 

OlFA E8 46 04 

OlFD EB FE 



OlFF B8 04 00 

0202 BB FO FF 

0205 E8 58 04 

0208 E8 OD 04 

020B E8 IB 04 

020E 2E 

020F Al A9 OD 

0212 E8 2E 04 

0215 EB FE 



0002 
0004 
0006 

nnno 

OOOA 
OOOC 
OOOE 
0010 
0012 
0014 
0016 
0018 
OOIA 
OOIC 
OOIE 
0020 
0022 
0024 
0026 
0028 
0014 



0000 



002A 
0032 
0034 
0036 
0038 
003A 
003C 
003E 
0040 
0042 
004A 
004C 
004E 



230 




mov 


bx,#LedsOn 


231 




call 


SetP20 


232 




call 


IntsOn 


233 




call 


DisplayOn 


234 




seg 


cs 


235 




mov 


ax, . ErrorCursor 


236 




call 


ShowMewCursor 


237 H3: 


j 


H3 


238 








239 OVF: 






240 




mov 


ax, #4 


241 




mov 


bx,#LedsOn 


242 




call 


SetP20 


243 




call 


IntsOn 


244 




call 


DisplayOn 


245 




seg 


cs 


246 




mov 


ax , . ErrorCursor 


247 




call 


ShowNewCursor 


248 H4: 


j 


H4 


249 








250 








251 




.END 




22 








23 




.Get 


"Z-BitBLT.bca" ;bitblt cod 


1 




Z-BitBLT.bca 


2 




This fi 


le contains BitBLT for the 8086 


3 




Version 


2.0 


4 




Author : 


Dan In"al 1 s 


5 




Last ch 


anged: March 8, 1979 3:54 PM 


6 




- fixed minx/y clipping 


7 




- fixe 


d destination segment 


8 




- saves/restores DS 


9 




- uses 


fast shift 


10 








11 








12 [ 


)ESBYTE 


= 


2 ;TEMPS BEGIN ABOVE SAVED BP 


13 [ 


)ESSEG = 




DESBYTE+2 


14 [ 


)ESRAST 


= 


DESSEG+2 


16 [ 


)ESFLD = 




DESRAST+2 


16 [ 


)ESX = 




DESFLD+2 


17 [ 


)ESY = 




DESX+2 


18 V 


ODTH = 




DESY+2 


19 [ 


1EIGHT = 




WIDTH+2 


20 ( 


:lpx= 




HEIGHT+2 


21 ( 


:lpy= 




CLPX+2 


22 ( 


:lpwid= 




CLPY+2 


23 ( 


:lpht= 




CLPWID+2 


24 < 


jRCBYTE 


= 


CLPHT+2 


25 5 


5RCSEG= 




SRCBYTE+2 


26 J 


5RCRAST 


= 


SRCSEG+2 


27 J 


jRCFLD= 




SRCRAST+2 


28 5 


>RCX = 




SRCFLD+2 


29 5 


;rcy= 




SRCX+2 


30 [ 


■UNC = 




SRCY+2 


31 ( 


3RAY= 




FUNC+2 


32 1 


rABSIZ = 




GRAY+2-DESBYTE/2 ;N0. WORDS 


33 








34 




NOTE: PARALLEL TABLES ...meaning that the 


36 




parmeters must lie the same distance from t 


36 




parameters in both tables. So check in the 


37 




zero= 


SRCBYTE-DESBYTE-SRCDEL+DESDEL 


38 








39 




TEMP FRAME FORMAT 


40 [ 


)ESDEL = 


GRAY+2 


;4 VALS FOR Y MOD 4 


41 [ 


)ESWA = 


DESDEL+8 


42 * 


5TARTBITS = 


DESWA+2 


43 J 


5KEW= 


STARTBITS+2 


44 5 


5KMSK = 


SKEW+2 




45 ^ 


1BAK = 


SKMSK+2 




46 \ 


/BAK = 


HBAK+2 




47 h 


1ASK1 = 


VBAK+2 




48 ^ 


1ASK2 = 


MASKl+2 




49 5 


>RCDEL = 


MASK2+2 


;4 VALS FOR Y MOD 4 


50 J 


)RCWA = 


SRCDEL+8 


51 F 


»RELD= 


SRCWA+2 




52 i 


iCOUNT= 


PRELD+2 





IN CALLER'S TABLE 



,LS file that 
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0050 
0052 
0054 
0056 
0058 
0060 

0008 
OOOC 

0218 



0218 


07 


05 


021A 


DD 


04 


021C 


DD 


04 


021E 


DD 


04 


0220 


E3 


04 


0222 


E3 


04 


0224 


E3 


04 


0226 


E3 


04 


0228 


EB 


04 


022A 


EB 


04 


022C 


EB 


04 


022E 


EB 


04 


0230 


03 


05 


0232 


FD 


04 


0234 


FD 


04 


0236 


FD 


04 


0238 


17 


05 


023A 


18 


05 


023C 


IC 


05 


023E 


20 


05 


0240 


00 


00 


0242 


01 


00 


0244 


03 


00 


0246 


07 


00 


0248 


OF 


00 


024A 


IF 


00 


024C 


3F 


00 


024E 




00 


0250 




00 


0252 




01 


0254 




03 


0256 




07 


0258 




OF 


025A 




IF 


025C 




3F 


025E 




7F 


0260 




FF 


0262 


CA 


05 


0264 


C8 


05 


0266 


C6 


05 


0268 


C4 


05 


026A 


C2 


05 


026C 


CB 


05 


026E 


CD 


05 


0270 


CF 


05 


0272 


Dl 


05 


0274 


D8 


05 


0276 


D6 


05 


0278 


04 


05 


027A 


DD 


06 


027C 


OF 


05 


027E 


El 


05 


0280 


E3 


05 



0282 E9 52 02 



53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 



MWORDS= HCOUNT+2 

SRCN= NWORDS+2 

SHIFTS= SRCN+2 

OPN= SHIFTS+2 

GRAYS= OPW+2 :4 VALS FOR Y MOD 4 

NTEMPS= GRAYS-f8 



BRUSHFUMC= 
COfJSTFUNC = 



OC 



LOC 



+1/2*2 ;EVENWORD ALIGNMENT 



/* TABLE OF SOURCE ROUTINES 



SOURCES: 



.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
ADR 
.ADR 



.ADR 

SRCO 

SRCO 

SRCO 

SRCl 

SRCl 

SRCl 

SRCl 

SRC2 

SRC2 

SRC2 

SRC2 

SRC3OP0 

SRC3 

SRC3 

SRC3 



SRCOOPO 



OPS; 



MASKTAB 



/* TABLE OF OPERATIONS 
.ADR OPO 
.ADR OPl 
.ADR 0P2 
.ADR 0P3 

/* TABLE OF MASKS 



.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 



.ADR 

1 

3 

7 

OF 

IF 

3F 

7F 

OFF 

IFF 

3FF 

7FF 

OFFF 

IFFF 

3FFF 

7FFF 

OFFFF 







/* TABLE OF SHIFTS (LEFT ROTATES) 



SHIFTTABLE: 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 
.ADR 

JDONE: JMP 



.ADR 

SHI 

SH2 

SH3 

SH4 

SH5 

SH6 

SH7 

SH8 

SH9 

SHIO 

SHll 

SH12 

SH13 

SH14 

SH15 

DONE 



SHO 



/* . . . and now, here's BITBLT! */ 
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0285 


83 


EC 


60 


0288 


65 






0289 


SB 


EC 




028B 


IE 






028C 


8C 


DO 




028E 


8E 


CO 




0290 


8B 


FD 




0292 


83 


C7 


02 


0295 


B9 


14 


00 


0298 


FC 






0299 


F2 






029A 


A5 







029B 


BE 


02 


00 


029E 


8B 


42 


OA 


02A1 


SB 


4A 


22 


02A4 


8B 


52 


OE 


02A7 


8B 


5A 


12 


02AA 


3B 


D8 




02AC 


7E 


13 




02AE 


2B 


D8 




O2B0 


03 


CB 




02B2 


2B 


D3 




02B4 


03 


C3 




Q2B5 


SB 


D8 




02B8 


89 


42 


OA 


02BB 


89 


4A 


22 


02BE 


89 


52 


OE 


02C1 


03 


C2 




02C3 


03 


5A 


16 


02C6 


2B 


D8 




02C8 


7D 


05 




02CA 


03 


D3 




02CC 


89 


52 


OE 


02CF 


85 


D2 




02Di 


7E 


AF 




02D3 


83 


EE 


02 


02D6 


74 


C6 





02D8 8B 46 22 

02DB 8B 56 OA 

02DE 2B C2 

02EO 25 OF 00 

02E3 89 46 36 



02E6 2B 
02E8 89 
02EB FC 
02EC 89 
02EF 88 
02F1 25 
02F4 BB 
02F7 2B 
02F9 89 
02FC Dl 
02FE 2E 
02FF 8B 
0303 89 
0306 03 
0309 FF 
030B 81 
030F BB 
0312 2B 
0314 Dl 

0316 2E 

0317 8B 
031B F7 
03 ID 89 
**&15) 



CO 
46 3A 

46 3C 
C2 

OF 00 
10 00 
D8 

5E 34 
E3 

87 40 02 

46 3E 

56 OE 

CA 

E2 OF 00 

OF 00 

DA 

E3 

87 40 02 

DO 

46 40 



129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 

202 
203 



SITBLT: SUB 
PUSH 
MOV 
PUSH 

MOV 
MOV 
MOV 
ADD 
MOV 
CLD 
REP 
MOVW 

/* MAK 
SI off 
MOV 
YTHENX: MOV 
MOV 
MOV 
MOV 
CMP 

JLE 
SUB 
ADD 
SUB 
ADD 
MOV 
MOV 
MOV 



SP,#NTEMPS 

BP 

BP.SP ;NEW FRAME 

DS ;SAVE DS 



AX.SS 

ES.AX 

DI.BP 

DI,#DESBYTE 

CX,#TABSIZ 



:BLT CALLER'S TABLE TO LOCAL MEMORY 



-.STARTS AT OFFSET 2 



E LOCAL COPY OF RECTANGLES, CHECKIMG BOUNDS 

set =DESY-DESX for Y/HT, =0 for X/WID in this section: 



SI,#DESY-DESX 

AX,DESX!BP!SI 

CX,SRCX!BP!SI 

DX,WIDTH!BP!SI 

BX,CLPX!BP!SI 



;SI -> y and height 



XHECK FOR DEST ORIGIN < CLIPPING 



INCREASE SOURCE ORIGIN 

DECREASE EXTENT 

AND MOVE DEST ORIG TO CLIP ORIGIN 



XYOK: 



WHOK: 



FHX 



MOV 
ADD 
ADD 
SUB 

JGE 
ADD 
MOV 
TEST 

JLE 
SUB 

JZ 



BX.AX 

XYOK 

BX.AX 

CX,BX 

DX.BX 

AX.BX 

BX,AX 

DESX!BP?SI,AX 

SRCXiBPiSI.CX 

WIDTH!BP!SI,DX 

AX.DX 

BX,CLPWID!BP!SI 

BX.AX -.CHECK FOR DEST EXTENT TOO BIG 

WHOK 

DX.BX ;REDUCE WIDTH THAT MUCH 

WIDTH!BP!SI,DX 

DX.DX 

JDONE ; NO BLT 

SI,#DESY-DESX 



IF WIDTH OR HEIGHT .LE. 
;Mow SI -> X and width 



YTHENX ;BACK AGAIN TO DO THE X'S 



/* CALCULATE SKEW FROM X'S 

MOV AX.SRCXIBP 

MOV DX.DESXIBP 

SUB AX.DX 

AND AX.#OF 

MOV SKEWIBP.AX ;skew = (sourcex-destx ) & 15 

/* SET UP INCS AND MASKS ASSUMING NO OVERLAP 



SUB 


AX. AX ;zero 






MOV 


HBAKIBP.AX 




;normal r to 1 (-1 means back) 


CLD 






;same for hardware direction flag 


MOV 


VBAKIBP.AX 




;norinal top-to-bottom 


MOV 


AX.DX 






AND 


AX,#OF 






MOV 


BX,#10 






SUB 


BX.AX 






MOV 


STARTBITSIBP.BX 


;startbits*- 16-{destx&15) [1-16] 


SHL 


BX ;WORD 


INDEX 


SEG 


CS 






MOV 


AX.MASKTABIBX 




- 


MOV 


MASKllBP.AX 




;maskl^ MASKS ISTARTBITS 


ADD 


DX,WIDTH!BP 






DEC 


DX 






AND 


DX.#OF 






MOV 


BX.#OF 






SUB 


BX.DX 






SHL 


BX -.WORD 


INDEX 


SEG 


CS 






MOV 


AX,MASKTAB!BX 






NOT 


AX 






MOV 


MASK21BP.AX 




;mask2 = NOT MASKS! { 15-(destx+width-l ) 



/* CHECK FOR POSSIBLE OVERLAP OF SOURCE AND DEST 
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0320 


SB 


46 


04 




0323 


3B 


46 


IC 




0328 


75 


OB 






0328 


8B 


46 


02 




032B 


3B 


46 


lA 




032E 


75 


03 






0330 


E8 


3A 


02 




0333 


8B 


4E 


36 




0336 


85 


C9 






0338 


74 


16 






033A 


8B 


5E 


22 




033D 


81 


E3 


OF 


00 


0341 


2B 


CB 






0343 


FF 


C9 






0345 


Dl 


CI 






0347 


81 


El 


01 


00 


034B 


03 


4E 


3A 




034E 


Dl 


El 






0350 


89 


4E 


4C 




0353 


8B 


4E 


26 




0356 


81 


El 


OF 


00 


035A 


89 


4E 


26 




035D 


8B 


Fl 






035F 


Dl 


E6 






0361 


2E 








0362 


88 


84 


18 


02 


0366 


89 


46 


52 




0369 


81 


E6 


06 


00 


036D 


2E 








036E 


8B 


84 


38 


02 


0372 


89 


46 


56 




0375 


83 


F9 


08 




0378 


7C 


OD 






037A 


83 


F9 


OC 




037D 


7C 


05 






037F 


C7 


46 


4C 


00 00 


0384 


E8 


9F 


01 




0387 


8B 


46 


OE 




038A 


2B 


46 


34 




038D 


FF 


C8 






038F 


7D 


OE 






0391 


8B 


4E 


40 




0394 


21 


4E 


3E 




0397 


C7 


46 


40 


00 00 


039C 


B8 


FO 


FF 




039F 


Dl 


F8 






03A1 


Dl 


F8 






03A3 


Dl 


F8 






03A5 


Dl 


F8 






03A7 


05 


02 


00 




03AA 


89 


46 


50 





03AD 


BE 


18 


00 


03B0 


8B 


46 


4C 


03B3 


25 


02 


00 


03B6 


Dl 


E8 




03B8 


03 


46 


50 


03BB 


8B 


56 


3A 


03BE 


F7 


02 




03C0 


33 


C2 




03C2 


2B 


C2 




03C4 


8B 


4A 


08 


03C7 


8B 


5A 


06 


03CA 


28 


09 




03CC 


8B 


56 


3C 


03CF 


33 


CA 





204 
206 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 

oo o 
coo 

234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 



MOV 
CMP 

JNE 
MOV 
CMP 

JNE 
CALL 



AX.DESSEGIBP 

AX.SRCSEGIBP 

•MOLAP 

AX,DESBYTE!BP 

AX.SRCBYTEIBP 

NOLAP 

OLAP 



; /* CALCULATE PRELD (NEED FOR EXTRA INITIAL WORD OF SOURCE) 

NOLAP: MOV CX, SKEW IBP 

TEST CX.CX 

JZ SPRELD 

MOV BX.SRCX'BP 

AND BX,#0F 

SUB CX.BX 

DEC CX 

ROL CX 

AND CX,#1 ;=0 if skew gr (sourcex&15) else 1 

ADD CX.HBAKIBP ;=0 if above XOR hbak=0 

SHL CX ;e1se = +-2 dep on hbak 

SPRELD: MOV PRELD!BP,CX 

• /* SET UP SOURCES, OPS, AND GRAYS IF NECESSARY 

MOV CX,FUNC!BP 

AND CX,#0F 

MOV FUNCfBP,CX 

MOV SI.CX 

SHL SI ;FUNC INDEXES WORD OF TABLE 

SEG CS 

MA\/ AV CAIIOrcCICT 

MOV SRCNIBP.AX 

AND SI, #6 ;0P INDEXES OPS 

SEG CS 

MOV AX, OPS! SI 

MOV OPNIBP.AX 

CMP CX,#BRUSHFUNC 

JL CNW ;N0 GRAY NEEDED 

CMP CX,#CONSTFUNC 

JL GRAYP 

MOV PRELD!BP,##0 

CALL GRAYPREP 



GRAYP: 



CNW: 



NO PRELOAD FOR CONST SOURCE 
PREPARE 4-WORD TABLE OF GRAYS 



IF WIDTH<STARTBITS, 

THEN MASKl = MASKl .AND. MASK2 

AMD MASK2 = 

AND MAKE NW0RDS=1 



SNW: 



STHEND: 



/* CALC NWORDS {no. words stored), MERGE MASKS IF NEG 

MOV AX,WIDTH!BP 

SUB AX,STARTBITS!BP 

DEC AX 

JGE SNW 

MOV CX,MASK2!BP 

AND MASK1!BP,CX 

MOV MASK2!BP,##0 

MOV AX, #-10 

SAR AX 

SAR AX 

SAR AX 

SAR AX 

ADD AX. #2 

MOV NWORDS!BP,AX ;NWORDS = 2+ (WIDTH-STARTBITS-1)/16 

/* CALC CORE INCREMENTS BETWEEN SCAN LINES 

SI offset =SRC-DEST for SRC, =0 for DEST in this section: 

The operations XOR , SUB cause conditional NEG when 

used with the 0/-1 flags in HBAK,VBAK in this section 

MOV SI,#SRCRAST-DESRAST ;SI -> src first 

MOV AX.PRELDIBP ;0 OR +-2 

AND AX, #2 ;0 OR 2 

SHR AX ;=1 IFF PRELOAD FOR SOURCE 

ADD AX,NWORDS!BP ;AX= NWORDS+( PRELOAD if source) 

MOV DX, HBAK IBP 

NOT DX 

XOR AX.DX 

SUB AX,DX ;(Negate NWORDS expr if left-to-right) 

MOV CX.DESFLDIBPISI ;CX = FLD 

MOV BX.DESRASTIBPISI 

SUB BX.CX ;BX = RAST-FLD 

MOV DX.VBAKIBP 

XOR CX.DX 
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03D1 


2B 


CA 




03D3 


33 


DA 




03D5 


28 


DA 




03D7 


03 


D8 




03D9 


03 


C8 




03DB 


33 


52 


OC 


03DE 


33 


56 


10 


03E1 


F7 


C2 


01 00 


03E5 


74 


02 




03E7 


87 


D9 




03E9 


Dl 


E3 




03EB 


Dl 


El 




03ED 


89 


5A 


2A 


03F0 


89 


4A 


2C 


03F3 


89 


5A 


2E 


03F6 


89 


4A 


30 


03F9 


8B 


42 


OC 


03FC 


8B 


C8 




03FE 


81 


El 


01 00 


0402 


F7 


09 




0404 


23 


4A 


08 


0407 


Dl 


F8 




0409 


F6 


62 


06 


040C 


03 


CI 




040E 


88 


52 


OA 


0411 


Dl 


FA 




0413 


Dl 


FA 




0415 


Dl 


FA 




0417 


Dl 


FA 




0419 


03 


C2 




041B 


Dl 


EO 




041D 


03 


42 


02 


0420 


89 


42 


32 


0423 


2B 


CO 




0425 


83 


EE 


18 


0428 


74 


8E 




042A 


8B 


5E 


36 


042D 


Dl 


E3 




042F 


2E 






0430 


8B 


87 


62 02 


0434 


89 


46 


54 


0437 


F7 


DB 




0439 


81 


E3 


IE 00 


043D 


2E 






043E 


8B 


87 


40 02 


0442 


74 


03 




0444 


33 


46 


3A 


0447 


89 


46 


38 


044A 


8E 


5E 


IC 


044D 


8E 


46 


04 


0450 


8B 


4E 


4A 


0453 


8B 


7E 


32 


0456 


88 


76 


10 


0459 


81 


E6 


03 00 


045D 


Dl 


E6 




045F 


EB 


18 





0461 8B CE 
0463 8B 76 10 
0466 FF CE 
0468 7E 6D 
046A 89 76 10 
046D 81 E6 03 00 
0471 Dl E6 
0473 03 7A 2A 
0476 03 4A 42 
0479 8B 42 58 
047C 89 46 28 



280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 



STDELS: 



SUB 
XOR 
SUB 
ADD 
ADD 
XOR 
XOR 
TEST 

JZ 
EXCHG 
SHL 
SHL 
MOV 
MOV 
MOV 
MOV 

MOV 
MOV 
AND 
MEG 
AND 
SAR 
MUL 
ADD 
MOV 
SAR 
SAR 
SAR 
SAR 
ADD 
SHL 
ADD 
MOV 
SUB 
SUB 
JZ 



CX.DX 
BX.DX 
BX.DX 
BX.AX 
CX.AX 



(Negate both if bot-to-top) 



Now BX, CX = even, odd deltas 
= +-FLD expr +-NWORDS expr 

PARITY OF VBAK, STARTING Y 

AND STARTING VCOUNT (+1) 

DETERMINE 

WHETHER TO SWITCH ODD, EVEN 



DX,DESY!BP!SI 

DX.HEIGHT'BP 

DX,#1 

STDELS 

BX.CX 

BX ;THESE DELTAS ARE IN WORDS 

CX 

DESDEL+0!BP!SI,BX 

DESDEL+2!BP'!SI,CX 

DESDEL+4!BP!SI,BX 

DESDEL+6!BP!SI.CX 

AX,DESY!BP!SI ;/* CALC INITIAL CORE ADDRS 

CX.AX ; STARTING Y 

CX,#1 

CX 

CX,DESFLD!BP!SI ;CX*- IF EVEN, FLD IF ODD 

AX 

DESRAST!BP!SI ; Y/2 * RASTER 

AX.CX ; + FIELD LENGTH IF Y WAS ODD 

DX,DESX!BP!SI 

DX 

DX 

DX 

DX ; PLUS STARTING X / 16 

AX.DX 

AX ; WORD ADDRESS 

AX,DESBYTE!BP!SI 

DESWA!BP!SI,AX ;STARTING MEMORY ADDRESS 

AX, AX ;N0 PRELOAD FOR DEST 

SI,#SRCRAST-DESRAST ;SI now -> destination 

STHEND ;BACK TO DO DEST 



SSKM: 



bt 1 
MOV 
SHL 
SEG 
MOV 
MOV 
NEG 
AMD 
SEG 
MOV 
JZ 
XOR 
MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
AND 
SHL 
J 



UP 



SHIFT AND MASK 
BX,SKEW!BP 
BX 
CS 

AX,SHIFTTABLE!BX 
SHIFTSIBP.AX 
BX 

BX,#1E 
CS 

AX,MASKTAB!BX 
SSKM 

AX,HBAK!BP 
SKMSKIBP.AX 

DS,SRCSEG!BP 

ES,OESSEG!BP 

CX.SRCWAIBP 

DI.DESWAIBP 

SI,HEIGHT!BP 

SI, #3 

SI 

VLl 



FROM TABLES INDEXED BY SKEW 

;SKEW= 0,1 15 

;WORD INDEX (*2) 



;SKEW SHIFT DISPATCH 



0,15, 1 (*2) 



;ZERO SKEW IGNORES DIRECTION 
;COMP MASK IF BACKWARDS 



;1oad seg regs 

;SOURCE MEMORY ADDRESS 
;DEST MEMORY ADDRESS 



/* VERTICAL LOOP FOR EACH SCAN-LINE */ 

/* SETUP 

VLOOP: MOV CX,SI ;STACHE CX WHILE SI INDEXES Y MOD 4 

MOV SI,HEIGHT!BP 

DEC SI 

JLE DONE 

MOV HEIGHT!BP,SI 

AMD SI, #3 ;MOD 4 

SHL SI ;WORD INDEX 

ADD DI,DESDEL!BP!SI 

ADD CX,SRCDEL!BP!SI 

VLl: MOV AX,GRAYS!BP!SI 

MOV GRAY IBP, AX 
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047F 88 Fl 

0481 88 14 

0483 03 76 4C 

0486 88 5E 50 



0489 


FF 


56 


52 


048C 


88 


4E 


3E 


048F 


23 


CI 




0491 


F7 


Dl 




0493 


26 






0494 


23 


CD 




0496 


OB 


CI 




0498 


AB 






0499 


FF 


CB 




049B 


74 


C4 




049D 


FF 


CB 




049F 


74 


24 




04A1 


88 


4E 


26 


04A4 


83 


F9 


OC 


04A7 


74 


15 




04A9 


08 


4E 


36 


04 AC 


74 


OA 




04AE 


FF 


56 


52 


0481 


A8 






04B2 


FF 


CB 




04B4 


7F 


F8 




04B6 


EB 


CD 




04B8 


88 


CB 




04BA 


F2 






04BB 


A5 






04BC 


EB 


07 




04BE 


88 


46 


28 


04C1 


88 


CB 




04C3 


F2 






04C4 


AB 






04C5 


FF 


56 


52 


04C8 


88 


4E 


40 


04CB 


23 


CI 




04CD 


F7 


Dl 




04CF 


26 






04DO 


23 


OD 




04D2 


OB 


CI 




04D4 


AB 






04D5 


EB 


8A 




04D7 


IF 






04D8 


50 






04D9 


83 


C4 


60 


04DC 


C3 







04DD E8 27 00 

04E0 FF 66 56 

04E3 E8 21 00 

04E6 F7 DO 

04E8 FF 66 56 

04EB E8 19 00 

04EE 88 C8 

04FO F7 Dl 

04F2 23 46 28 
04F5 26 



356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 



HLOOP: 



BIT: 



BLKS: 



HLAST: 



DONE: 



SRCO: 
SRCl: 

SRC2: 



MOV 


SI.CX 




MOV 


DX.OISI 




ADD 


SI.PRELDiBP 


:0 OR +-2 


MOV 


BX,MWORDS!BP 





now DS.SI -> source, and ES.DI -> destination, and DF^dir 

AX = THE SOURCE DATA TO BE STORED 

BX = HORIZ WORD COUNT 

DX = W0RD2 - THE OTHER SOURCE BITS FOR WORD-STRADDLING 



/* INITIAL FRINGE 
CALLI SRCNIBP 

CX,MASK1!BP 

AX,CX ;MASK UNDER MASKl 

CX 

ES 

CX,0!DI 

AX.CX 



MOV 

AND 

NOT 

SEG 

AND 

OR 

STOW 

DEC 

JZ 
DEC 

JZ 
MOV 
CMP 

JE 
OR 

J 7 



BX 

VLOOP 

BX 

HLAST 

CX,FUNC!BP 

CX,##CONSTFUNC 

BLKS 

CX,SKEW!BP 

Rl T 



/* FULL WORDS IN MIDDLE (IF AMY) 

CALLI SRCNIBP 

STOW ; STORE UNMASKED 

DEC BX 

JG HLOOP 

J HLAST 



MOV 
REP 

vtrw f\.t 

J 

MOV 
MOV 
REP 
STOW 



CX.BX 



HLAST 



;SPECIAL CASE OF UMSKEWED COPY 
; 8086 BLOCK TRANSFER 



AX,GRAY!BP 
CX,BX 



;SPECIAL CASE OF STORE CONST 



8086 BLOCK STORE 



/* FINAL FRINGE (IF ANY) 
CALLI SRCNIBP 

CX,MASK2!BP 

AX.CX ;MASK UNDER MASK? 

CX 

ES 

CX.O'.DI 

AX.CX 



MOV 

AND 

NOT 

SEG 

AND 

OR 

STOW 

J 



VLOOP 



POP 
POP 
ADD 
RET 



DS 
BP 
SP,#NTEMPS 



;RESTORE DATA SEGMENT 



/*HERE ARE THE FOUR SOURCES 
CALL SOURCE ; /* WINDOW 
JMPI OPNIBP 



CALL 

NOT 

JMPI 

CALL 

MOV 

NOT 

AND 

SEG 



SOURCE 

AX 

OPNIBP 

SOURCE ; 

CX.AX 

CX 

AX,GRAY!BP 

ES 



/* NOT WINDOW 

/* WINDOW .AND. GRAY 
;BLACK -> GRAY 
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04F6 23 OD 
04F8 OB CI 
04FA FF 65 56 

04FD SB 46 28 
0500 FF 66 56 

0503 8B 46 28 
0506 C3 



0507 8B 4E 

050A 23 Dl 

050C F7 Dl 

050E AD 

050F 23 C8 

0511 92 

0512 OB CI 
0514 FF 66 



38 



54 



0517 


C3 






0518 


26 






0519 


08 


05 




051B 


03 






051C 


26 






051D 


33 


05 




051F 


C3 






0520 


F7 


DO 




0522 


26 






0523 


23 


05 




0525 


03 






0526 


8B 


46 


28 


0529 


8B 


56 


30 


052C 


88 


D8 




052E 


23 


DA 




0530 


81 


E3 


OF OF 


0534 


32 


FB 




0536 


8A 


DF 




0538 


33 


C3 




053A 


8B 


4E 


00 


053D 


33 


CA 




053F 


2B 


CA 




0541 


03 


4E 


10 


0544 


FF 


01 




0546 


81 


El 


03 00 


054A 


Dl 


El 




054C 


Dl 


El 




054E 


D3 


CO 




0550 


BE 


06 


00 


0553 


89 


04 


00 


0556 


8A 


F4 




0558 


D3 


CO 




055A 


8A 


DO 




055C 


81 


E2 


OF FO 


0560 


OA 


F2 




0562 


8A 


D6 




0564 


89 


52 


58 


0567 


83 


EE 


02 


056A 


7D 


EA 




056C 


03 






056D 


8B 


46 


00 


0570 


8B 


5E 


24 



432 




AND 


CX.OIDI 


WHITE -> TRANSPARENT 


433 




OR 


AX, OX 


434 




JMPI 


OPNSBP 


435 








436 SRC3: 


MOV 


AX.GRAYIBP ; /* CONSTANT (GRAY) 


437 




JMPI 


OPM'BP 


438 








439 SRC3OP0 


: MOV 


AX,GRAY!BP ; /* OPTIMIZED STORE CONST 


440 




RET 




441 SRCOOPO 




; /* OPTIMIZED MOVE (FALLS THRU SOURCE!) 


442 








443 




SOURCE 


BITREOT 


444 SOURCE: 


MOV 


CX,SKMSK!BP 


445 




AND 


DX.CX ;W0RD2 .AND. SKEWMASK 


446 




MOT 


CX 


447 




LODW 




448 




AND 


CX,AX ;NEXT WORD .AND. (NOT SKEWMASK) 


449 




EXCHG 


AX.DX : (STASHES NEW W0RD2 IN DX) 


450 




OR 


AX.CX ;COMBINE TWO PARTS INTO AX 


451 




JMPI 


SHIFTSIBP ;fast ROLV AX by SKEWIBP 


452 








453 




MOV 


CX,SKEW!BP 


454 




ROLV 


AX 


455 




RET 




456 








457 




/*HERE 


ARE THE FOUR OPERATIONS 


458 ( 


)P0: 


RET 


; /* SOURCE [MOVE] 


469 








460 ( 


)P1: 


SEG 


ES 


461 




OR 


AX.OIDI ; /* SOURCE .OR. DEST [MERGE] 


462 




RET 




453 








464 ( 


)P2: 


SEG 


ES 


465 




XOR 


AX,0!DI ; /* SOURCE .XOR. DEST [XOR] 


455 




RET 




457 








468 ( 


)P3: 


NOT 


AX ; /* (NOT SOURCE) .AND. DEST [ERASE] 


469 




SEG 


ES 


470 




AND 


AX,0!DI 


471 




RET 




472 








473 








474 C 


5RAYPREP: 


MOV AX,GRAY!BP ;PICK UP THE GRAY WORD 


475 




MOV 


DX,VBAK!BP 


476 




MOV 


BX.AX 


477 




AND 


BX.DX 


ONLY IF VBAK = -1 . . . 


478 




AND 


BX,##OF0F 


WILL THESE 5 INSTRS 


479 




XOR 


BH.BL 


INVERT THE GRAY 


480 




MOV 


BL.BH 


FROM A-B-C-D 


481 




XOR 


AX.BX 


TO A-D-O-B 


482 




MOV 


CX,DESY!BP 


483 




XOR 


CX.DX 


484 




SUB 


CX.DX ; +- STARTING Y, DEP ON VBAK 


485 




ADD 


CX.HEIGHTIBP 


485 




INC 


OX ; FUDGE 


487 




AND 


CX,#3 ; N *- (HEIGHT +- STARTING Y) MOD 4 


488 




SHL 


OX 


489 




SHL 


CX 


490 




ROLV 


AX ; ROT BY N NIBBLES TO ALIGN "SEAMS" 


491 


MOW EXPAND EACH NIBBLE TO A FULL WORD AND STORE IN THE 4 GRAY WORDS 


492 




MOV 


SI, #5 


493 




MOV 


OX, #4 


494 E 


XLP: 


MOV 


DH,AH ; AX WAS A-B-C-D 


495 




ROLV 


AX 


496 




MOV 


DL,AL 


497 




AND 


DX,##OF0OF 


498 




OR 


DH.DL 


499 




MOV 


DL.DH ; DX NOW A-A-A-A 


500 




MOV 


GRAYS!BP!SI.DX 


501 




SUB 


SI, #2 ;ORDER IS A-B-C-D INTO 3-2-1-0 


502 




JGE 


EXLP 


503 




RET 




504 ; 








505 ; 




/* SPECIAL SETUP FOR HORIZ AND VERTICAL OVERLAP 


505 C 


>LAP: 


MOV 


AX.DESYIBP 


507 




MOV 


BX,SRCY!BP 
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0573 


38 


C3 






0575 


7C 


DC 






0577 


7F 


34 






0579 


8B 


4E 


OA 




057C 


8B 


56 


22 




057F 


38 


CA 






0581 


7F 


01 






0583 


C3 








0584 


C7 


46 


3A FF 


FF 


0589 


FD 








058A 


8B 


46 


OE 




058D 


FF 


C8 






058F 


03 


C8 






0591 


89 


4E 


OA 




0594 


03 


DO 






0596 


89 


56 


22 




0599 


8B 


CI 






059B 


25 


OF 


00 




059E 


FF 


CO 






05A0 


89 


46 


34 




05A3 


88 


46 


3E 




05A6 


87 


46 


40 




05A9 


89 


46 


3E 




05AC 


C3 








05AD 


C7 


46 


3C FF 


FF 


05B2 


8B 


4E 


10 




05B5 


FF 


C9 






05B7 


03 


CI 






05B9 


89 


46 


OC 




05BC 


03 


D9 






05BE 


89 


5E 


24 




05C1 


C3 








05C2 


Dl 


CO 






05C4 


Dl 


CO 






05C6 


Dl 


CO 






05C8 


Dl 


CO 






05CA 


C3 








05CB 


Dl 


C8 






05CD 


Dl 


C8 






05CF 


Dl 


C8 






05D1 


86 








05D2 


C4 








05D3 


C3 








05D4 


Dl 


CO 






05D6 


Dl 


CO 






05D8 


Dl 


CO 






05DA 


86 








05DB 


C4 








05DC 


C3 








05DD 


Dl 


C8 






05DF 


Dl 


C8 






05E1 


Dl 


C8 






05E3 


Dl 


C8 






05E5 


C3 









004A 
0160 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
24 
25 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 



EASY: 
HOLAP: 



VOLAP: 



SH4 
SH3 
SH2 
SHI 
SHO 

SH5 
SH6 
SH7 
SH8 



SHll: 
SHIO: 
SH9: 



SH12 
SH13 
SH14 
SH15 



CMP 

JL 

JG 
MOV 
MOV 
CMP 

JG 

RET 
MOV 
STD 
MOV 
DEC 
ADD 
MOV 
ADD 
MOV 
MOV 
AND 
INC 
MOV 
MOV 
EXCHG 
MOV 

RET 

MOV 
MOV 
DEC 
ADD 
MOV 
ADD 
MOV 
RET 



AX.BX 

EASY 

VOLAP 



;VERT DIR IS NORMAL AND NON-ZERO 
;VERT IS BACKWARD 



CX.DESXIBP 
DX.SRCXIBP 
CX.DX 
HOLAP 

;HORIZ 
HBAK!BP,##-1 



;VDELTA=0, BETTER CHECK HDIR 



IS NORMAL 
;HORIZ BACKWARD (RIGHT-TO-LEFT) 
;SAME FOR HARDWARE DIR 



AX,WIDTH!BP 

AX ;WIDTH-1 

CX.AX 

DESX!BP,CX 

DX.AX 

SRCXIBP.DX 

AX.CX 

AX,#0F 

AX 

STARTBITSIBP.AX 

AX,MASK1!BP 

AX,MASK2!BP 

MASK1!BP,AX 



VBAK!BP,##-1 

CX.HEIGHTIBP 

CX 

AX.CX 

DESYiBP, AX 

BX.CX 

SRCY!BP,BX 



;MOVE STARTING Xs TO RIGHT SIDE 



;STARTBITS<- (DESTX&15) + 1 [1-16] 
; EXCHANGE THE MASKS 



;VERT BACKWARD (BOTTOM-TO-TOP) 



; MOVE STARTING Ys TO BOTTOM 



/* OPTIMUM 8086 SHIFT ROUTINES; 



ROL 
ROL 
ROL 
ROL 
RET 

ROR 

ROR 

ROR 

86 

0C4 

RET 

ROL 
ROL 
ROL 
86 

0C4 
RET 

ROR 
ROR 
ROR 
ROR 
RET 



AX 
AX 
AX 
AX 



AX 
AX 
AX 



AX 
AX 
AX 



AX 
AX 
AX 
AX 



-.SHIFTS 0-4 



;SHIFTS 6-8 



HAND ASSEMBLY OF: 
EXCHG AH.AL 



;SHIFTS 9-11 



HAND ASSEMBLY OF; 
EXCHG AH.AL 



;SHIFTS 12-15 



.Get "Z-Subs.bca" 
Z-Subs .bca 



;niisc. subroutines 



ukbrq = 
sa= 



This file contains miscellaneous subroutines 
to be called from Smalltalk (in the interim) 
or from other routines resident in rem. 
Author: Bruce Horn 
Last changed: May 7, 1979 12:32 AM 

BltOld, BltNew are in DoCursor.bca 

4A ; request keyboard data 

160 ;starting address port, CRT 
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05E6 Al 36 21 

05E9 8B IE 38 21 

05ED Dl E8 

05EF Dl E8 

05F1 Dl E8 

05F3 Dl E3 

05F5 03 C3 

05F7 BA 60 01 

05FA EF 

05FB C3 



05FC B9 05 00 

05FF B8 FO 7F 

0602 FF C8 

0604 75 FC 

0606 B8 FO 7F 

0609 E2 F7 

060B C3 



060C BA 02 00 

060F EC 

0610 2E 

0511 A3 OA 10 

0614 BO FF 

0616 EE 

0617 C3 



0618 2E 

0619 Al OA 10 
061C BA 02 00 
061F EE 

0620 C3 



0621 


B8 


00 


00 


0624 


BA 


54 


01 


0627 


EE 






0628 


C3 






0629 


B8 


00 


00 


062C 


BA 


5C 


01 


062F 


EE 






0630 


C3 






0631 


2E 






0632 


Al 


18 


20 


0635 


3C 


00 




0637 


74 


F8 




0639 


C3 






063A 


2E 






063B 


Al 


18 


20 


063E 


3C 


00 




0640 


75 


F8 




0642 


C3 






0643 


2E 






0644 


A3 


20 


10 


0647 


E8 


63 


00 


064A 


2E 






064B 


Al 


20 


10 


064E 


2E 






064F 


A3 


4E 


21 


0652 


E8 


6B 


00 


0655 


C3 







14 


Retrace: 




15 


mov 


ax.Displ ayBit 


16 


mov 


bx.DisplayBit 


17 


shr 


ax 


18 


shr 


ax 


19 


shr 


ax 


20 


shl 


bx 


21 


add 


ax.bx 


22 


mov 


dx,#sa 


23 


outdw 




24 


ret 




25 






26 


WaitASecond; 




27 


mov 


ex, #5 


28 


mov 


ax,#7FF0 


29 


LPl: 




30 


dec 


ax 


31 


jnz 


LPl 


32 


mov 


ax,#7FF0 


33 


loop 


LPl 


34 


ret 




35 






36 






37 


IntsOff : 




38 


mov 


dx,#ocwl 


39 


ind 




40 


seg 


cs 


41 


moy 


IRR , ax 


42 


mov 


al,#OFF- 


43 


outd 




44 


ret 




45 






46 


IntsOn: 




47 


seg 


cs 


48 


mov 


ax, IRR 


49 


mov 


dx,#ocwl 


50 


outd 




51 


ret 




52 






53 






54 


DisplayOff : 




55 


mov 


ax,#0 


56 


mov 


dx,#154 


57 


outd 




58 


ret 




59 






60 


DisplayOn : 




61 


mov 


ax,#0 


62 


mov 


dx,#15C 


63 


outd 




64 


ret 




65 






66 


WaitBug: 




67 


seg 


cs 


68 


mov 


ax.KbdStatus 


69 


cmp 


al,#0 


70 


Je 


WaitBug 


71 


ret 




72 






73 


WaitNoBug: 




74 


seg 


cs 


75 


mov 


ax.KbdStatus 


76 


cmp 


al,#0 


77 


jne 


WaitNoBug 


78 


ret 




79 






80 


ShowWewCursor: 




81 


seg 


cs 


82 


mov 


RO.ax 


83 


call 


HideCursor 


84 


seg 


cs 


85 


mov 


ax.RO 


86 


seg 


cs 


87 


mov 


CursorBits , ax 


88 


call 


ShowCursor 


89 


ret 





;bitmap/cursor table 



divide byte adr by 8 
multiply segment by 2 
then add the terms->19bits/3 
starting address port 

;return to caller 



;get old mask 



;mask off all interrupts 



;get old interrupt mask 

;send al out to port 2 and 
;restore interrupts 



reset display controller 



start CRT timing chain 



;get keyboard status 
;are mouse buttons zero? 
;yes, try again, otherwise 
;return to caller 



If any buttons down, loop 



;save source bitmap 
;hide old cursor 

; restore source bitmap 

;new source byte address 
;show new cursor 
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0656 B9 00 00 

0659 EB 16 

0658 89 01 00 
065E EB 11 

0660 B9 02 00 
0663 EB OC 



0655 OC 10 
0667 00 01 
0669 OE 10 
066B 60 00 
066D 10 10 
066F 20 00 



0671 Dl El 
0673 Dl El 
0675 8B Fl 
0677 8B CB 
0679 2E 

067A SB BC 65 06 
067E 2E 
067F 23 10 
0681 Dl E9 
0683 73 04 
0685 Dl EO 
0687 EB F8 

0689 OB C3 
068B 2E 
068C 89 05 
068E FF C6 

0690 FF C6 

0692 2E 

0693 8B 94 65 06 



0697 EF 

0698 C3 



0699 


88 


OC 


069B 


FF 


C6 


069D 


FF 


C6 


069F 


88 


14 


06A1 


FF 


C6 


06A3 


FF 


C6 


06A5 


8A 


04 


06A7 


EE 




06A8 


FF 


C6 


06AA 


E2 


F3 


06AC 


C3 





06AD 88 FF FF 

06BO 2E 

06B1 38 06 62 21 

06B5 75 01 

0687 C3 

06B8 2E 

0689 A3 62 21 

068C E8 16 03 

06BF C3 



90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 



SetPlOO 
SetP60: 
SetP20: 

Ports: 



mov 
J 

mov 
J 

mov 
j 



adr 
adr 
adr 
adr 
adr 
adr 



cx,#0 
SetPort 

cx,#l 
setPort 

ex, #2 
SetPort 



PortlOO 

100 

Port60 

60 

Port20 

20 



;ax=bits (right justified), bx=field spec, cx=port offset 
SetPort: 



;point to correct place in table 

;offset in table 

;move field definition into ex 

!d1 is address of Port100/60/2Q 



MS; 



SO: 



shl 


ex 


shl 


ex 


mov 


si ,cx 


mov 


cx.bx 


seg 


es 


mov 


di i Ports ! si 


seg 


cs 


and 


bx,0!di 


shr 


ex 


jnc 


SD 


shl 


ax 


j 


MS 


or 


ax,bx 


seg 


cs 


mov 


0!di ,ax 


inc 


si 


inc 


si 


seg 


cs 


mov 


dx.Portsisi 


outdw 




ret 





ana ox, t^ortiuu/ou/iiu 

shift field def by 1 

shift done 

shift bits left 1 

;or in new bits 

;save new PortlOO/60/20 

;next number in table 



;DS,SI point to table for initialization of display 
initDC: 



Param: 



mov 


cx,0! si 


inc 


si 


inc 


si 


mov 


dx.O'si 


inc 


si 


ine 


si 


mov 


al,0!si 


outd 




inc 


si 


loop 


Param 


ret 





;initialize display controller 
llength of table is first word 



;get port of store 



and get value 

send al out to port, then 

increment si for next word 

and get next 

return 



;blts out, locks cursor 



HideCursor: 
mov 
seg 
cmp 
jne 
ret 

Hidelt: 

seg 
mov 
call 
ret 



ax,#OFFFF 

cs 

ax ,CursorLock ;is it already locked? 

Hidelt 

;already hidden 



CursorLock, ax ;lock it 

BltOld ;81t out old cursor 



;blts in, unlocks new cursor 
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06CO B8 00 00 
06C3 2E 

06C4 3B 06 62 21 
06C8 75 01 
06CA C3 

06CB E8 10 03 

06CE 2E 

06CF C7 06 62 21 00 00 

06D5 C3 



06D6 BO 00 

06D8 E6 4A 

06DA C7 06 12 10 00 00 

06EO C3 



004E 
0016 
0048 
0001 
0005 



06E1 


09 


00 


06E3 


40 


01 


06E5 


5F 




06E6 


42 


01 


06E8 


F2 




06E9 


44 


01 


06EB 


7D 




06EC 


46 


01 


06EE 


ID 




06EF 


48 


01 


06F1 


04 




06F2 


4A 


01 


06F4 


10 




06F5 


54 


01 


06F7 


00 




06F8 


5A 


01 


06FA 


IE 




06FB 


5C 


01 


06FD 


00 





06FE FC 



06FF BA 00 00 
0702 B8 13 00 

0705 EE 

0706 BA 02 00 

0709 B8 20 00 
070C EE 

070D B8 OD 00 

0710 EE 

0711 B8 FF 
0714 EE 



00 



166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

26 

27 

1 

2 

3 

4 

6 

6 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



ShowCursor: 
mov 
seg 
cmp 
jne 
ret 



Showit: 



call 
seg 
mov 
ret 



ax,#0 
cs 

ax.CursorLock ;is it already shown? 
Showit ;keep cursor locked 

; already shown 

BltNew ;Blt in new cursor 

cs 

CursorLock,##0 ;allow further cursor moves 



.begins kbd byte transfer through uart 
RdKbd: 



mov 
out 
mov 
ret 

.EMD 



al,#0 ;Request keyboard data 

ukbrq 

KbdOffset ,##0 ;and set offset to zero 

;let interrupt handle bytes 



.Get "Z-IOInit.bca" 
Z-IOInit.bca 



; interrupt inits 



This file contains the I/O initialization 
code for the display and kbd 

Author: Bruce Horn 

Last changed: May 2, 1979 9:00 AM 



ureset= 
ucbits= 
uctrl= 
TCGo = 
CRT12Mhz= 



DCParams 



. adr 
. adr 

. adr 

. adr 

. adr 

. adr 

. adr 

. adr 

. adr 

.adr 



4E 

16 

48 

1 

5 



9. 

140 

05F 

142 

0F2 

144 

07D 

146 

OlD 

148 

004 

14A 

010 

154 



15A 

OlE 

15C 





; reset UART 

jproper bits for control reg 

;control location 

;Timing chain on 

;Bit clock @ 12 Mhz 



; number of parameters in table 

;0: CharTimes/Horizontal period 

;1: l=Interlace bit ;CharTimes/HorizSync 

;2: 80 chars/1 ine ; 15+1 scans/char 

;3: 00 skew; 30 dataRows/f ield-1 

;4: 521 rasterScans/f iel d -513/2 

;5: delay from VSynch to first data row 

;Reset chip 

;13: cursor line 30 

;Start timing chain 



lOInit: 

eld ;clear direction 

;set up 8259 for interrupts, but don't enable interrupts at all 

;ICW1 
;single, ic4 

;ICW2 

;vector begins at 20*2 = 80 

;ICW4, is an 8086, buffered mode 

;mask should be all disabled 



mov 


dx 


,#ic 


mov 


ax 


,#13 


outd 






mov 


dx 


,#ic+2 


mov 


ax 


.#20 


outd 






mov 


ax 


,#0D 


outd 






mov 


ax 


,#OFF 


outd 
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0715 B8 00 00 

0718 E7 4E 

071A B8 16 00 

071D E7 48 

071F BE El 06 

0722 E8 74 FF 

0725 B8 05 00 

0728 BB FF Fl 

072B E8 28 FF 

072E 88 01 00 

0731 BB FF DF 

0734 E8 IF FF 

0737 BA 02 00 
073 A EC 

073B 24 EF 

073D 24 BF 
073F EE 

0740 2E 

0741 A3 OA 10 

0744 FB 

0745 C3 



0020 








0042 








004C 








0746 


50 






0747 


52 






0748 


53 






0749 


51 






074A 


56 






074B 


57 






074C 


IE 






074D 


06 






074E 


B8 


00 


00 


0751 


8E 


D8 




0753 


8E 


CO 




0755 


FF 


06 


14 20 


0759 


E8 


8A 


FE 


075C 


E8 


08 


00 


075F 


E8 


48 


02 


0762 


E8 


71 


FF 


0765 


07 






0766 


IF 






0767 


5F 






0768 


5E 






0769 


59 






076A 


5B 






0768 


BO 


20 




076D 


BA 


00 


00 


0770 


FA 






0771 


EE 






0772 


5A 






0773 


58 






0774 


FB 






0775 


CF 







54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

28 

29 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



mov 


ax #0 ; 


outw 


ureset 


mov 


ax, #ucbits 


outw 


uctrl ; 


mov 


si,#DCParams ; 


call 


initDC ; 


mov 


ax,#CRT12Mhz ; 


mov 


bx,#BitClk 


call 


SetPlOO 


mov 


ax.#TCGo 


mov 


bx,#GoWordClock ; 


call 


SetPlOO ; 


mov 


dx,#ocwl 


ind 




and 


al,#ir4 ', 


and 


a1,#ir6 ; 


outd 




seg 


OS 


mov 


IRR.ax 


sti 




ret 





reset the uart on kbd 

load Ctrl reg 

table of init parameters 
Initialize display controller 
set port 100 for 12mhz clock 
field specification 

timing chain begin 
field specification 
and set port 100 



get the current IRR 

enable Oddint 

and Kbdint 

send it outd to ocwl 

save mask in IRR 
enable interrupts 
return to debugger 



;Calls SetPlOO, InitDC (subs.bca) 

EMD 

.Get "Z-Fieldlnts .bca" 
; Z-Fieldlnts .bca 



; fielding interrupts 



This file contains the calls on the interrupt 
routines . 

Author: Bruce Horn 

Last changed: May 2, 1979 2:52 PM 



eoi = 

udatin= 

urrda= 

Oddint: 



20 
42 
4C 



push 
push 
push 
push 
push 
push 
push 
push 

mov 

mov 

mov 

incw 

call 

call 

call 

call 

pop 

pop 

pop 

pop 

pop 

pop 

mov 
mov 
cli 
outd 

pop 
pop 
sti 
iret 



ax 
dx 
bx 
ex 
si 
di 
ds 
es 



;end of interrupt 
;obtain keyboard data 
;Reset data ready on UART 



14!sp 

12!sp 

lO'sp 

8!sp 

6!sp 

4!sp 

2!sp 

0!sp 



ax,#CurrentDS 

ds ,ax 

es,ax 

ICount 

Retrace 

EncodeKbd 

DoCursor 

RdKbd 

es 

ds 

di 

si 

ex 

bx 

al ,#eoi 
dx,#ic 



dx 
ax 



increment interrupt count 

do vertical retrace for art 

Interpret kbd bytes 

update cursor 

start fetching new kbd bytes 

pop all registers 

except ax, dx for interrupt 

dismissal 



dismiss interrupt 

send to 8259 

DON'T service interrupts. 



;... until now — all safe 

;pop flags on return, also cs.ip 
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0776 


50 








0777 


53 








0778 


52 








0779 


IE 








077A 


B8 


00 


00 




077D 


8E 


D8 






077F 


8B 


IE 


12 


10 


0783 


B8 


OC 


00 




0786 


3B 


D8 






0788 


7D 


10 






078A 


E4 


42 






078C 


88 


87 


2A 


20 


0790 


FF 


C3 






0792 


89 


IE 


12 


10 


0796 


BO 


00 






0798 


E6 


4C 






079A 


IF 








079B 


BO 


20 






079D 


BA 


00 


00 




07A0 


FA 








07A1 


EE 








07A2 


5A 








07A3 


58 








07A4 


58 








07A5 


FR 








07A6 


CF 









07A7 B8 06 00 
07AA BB FO FF 
07AD E8 80 FE 
07B0 E8 65 FE 
07B3 E8 73 FE 
07B6 2E 
07B7 Al A9 OD 
07BA E8 86 FE 
07BD EB FE 



07BF B8 07 00 

07C2 BB FO FF 

07C5 E8 98 FE 

07C8 E8 4D FE 

07CB E8 5B FE 

07CE 2E 

07CF Al A9 OD 

07D2 E8 6E FE 

07D5 EB FE 



07D7 B8 08 00 
07DA BB FO FF 
07DD E8 80 FE 
07E0 E8 35 FE 
07E3 E8 43 FE 
07E6 2E 
07E7 Al A9 OD 
07EA E8 56 FE 
07ED EB FE 



07EF B8 09 00 

07F2 BB FO FF 

07F5 E8 68 FE 

07F8 E8 ID FE 

07FB E8 2B FE 

07FE 2E 

07FF Al A9 OD 

0802 E8 3E FE 

0805 EB FE 



47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 



Kbdint: 

push 

push 

push 

push 

mov 

mov 

mov 

mov 

cmp 

jge 

in 
mov 
inc 
mov 
mov 
out 
Fini: pop 
mov 
mov 
cli 
outd 
pop 
pop 
pop 
sti 
iret 



ParErrInt : 
mov 
mov 
call 
call 
call 
seg 



10: 



call 
J 



IPSysInt: 



II: 



mov 

mov 

call 

call 

call 

seg 

mov 

call 

J 



Diskint: 



12: 



EIAInt; 



13: 



ADCInt: 



mov 

mov 

call 

call 

call 

seg 

mov 

call 

J 



mov 

mov 

call 

call 

call 

seg 

mov 

call 

J 



ax 

bx 

dx 

ds 

ax,#CurrentDS 

ds.ax 

bx.KbdOffset 

ax. #12. 

bx,ax 

Fini 

udatin 

KbdOatalbx.al 

bx 

KbdOffset.bx 

al,#0 

urrda 

ds 

al ,#eoi 

dx,#ic 



dx 
bx 
ax 



ax, #6 

bx,#LedsOn 

SetP20 

IntsOn 

DisplayOn 

cs 

aXj.Liivjiv^uiS^ 

ShowNewCursor 
10 



ax, #7 

bx,#Led$On 

SetP20 

IntsOn 

DisplayOn 

cs 

ax , . ErrorCursor 

ShowNewCursor 

II 



ax, #8 

bx,#LedsOn 

SetP20 

IntsOn 

DisplayOn 

cs 

ax , . ErrorCursor 

ShowNewCursor 

12 



ax, #9 

bx,#LedsOn 

SetP20 

IntsOn 

DisplayOn 

cs 

ax, . ErrorCursor 

ShowNewCursor 

13 



;if greater than 12, don't store 

;next byte, otherwise its 

;ok for next kbd byte 

;get data 

;low byte is data 



store it 

Reset DR 

begin restoring registers 

tell 8259 end of interrupt 

;Don't service interrupts... 



;until now--all safe 
interrupt return 



stop machine 



;stop machine 



;stop machine 
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0807 B8 OA 00 

080A BB FO FF 

080D E8 50 FE 

0810 E8 05 FE 

0813 E8 13 FE 

0816 2E 

0817 Al A9 OD 
081A E8 26 FE 
081D EB FE 



081F B8 OB 00 

0822 BB FO FF 

0825 E8 FO FD 

0828 E8 FE FD 

082B E8 32 FE 

082E 2E 

082F Al A9 OD 

0832 E8 OE FE 

0835 EB FE 



123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
30 
31 
1 
2 
3 

4 
5 
6 
7 



14: 



mov 

mov 

ca1 1 

call 

can 

seg 

mov 

call 

J 



VSyncInt: 

mov 

mov 

call 

call 

call 

seg 

mov 

call 

J 



15: 



ax,#OA 

bx,#LedsOn 

SetP20 

IntsOn 

DisplayOn 

OS 

ax , . ErrorCursor 

ShowWewCursor 

14 



ax,#OB 
bx,#LedsOn . 
IntsOn 
DisplayOn 
SetP20 

OS 

ax , . ErrorCursor 

ShowMewCursor 

15 



.END 

.Get "Z-EncodeKbd.bca" 
Z-EncodeKbd.bca 



; Encoding keyboard 



This file contains the kewboard encoder and 

interrupt key handler 

Author: Bruce Horn 

Last changed: April 30, 1979 3:11 PM 



0003 



2F7F 
FB6F 
D080 
0490 
8000 
0080 
0080 
0010 
4000 
0400 
1000 
0040 
COCO 
0080 
0020 



**ady, it runs in a wait 



0837 C7 06 18 20 00 00 

083D AO 2C 20 

0840 98 

0841 01 06 lA 20 
0845 AO 2B 20 

0848 98 

0849 29 06 IC 20 
084D BB 02 00 

0850 SB 87 lA 20 
0854 8B 8F 22 20 
0858 8B 97 IE 20 
085C 03 CA 

085E 3B CI 

0860 7F OB 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
loop. 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



;Other useful constants 

WordZero= 3. ;Beginning of actual keyboard words 



;The following 

; to those who 

ZeroMetaO^ 

ZeroMetal= 

OneMetaO= 

OneMetal= 

MetaMBl= 

MetaMB2= 

MetaMB3= 

MetaLS= 

MetaRS= 

MetaC= 

MetaLock= 

OSShift= 

OSCTRL= 

OSLock= 

CBLength= 



are META 
fool with 
02F7F 
0FB6F 
0D080 
00490 
8000 
80 
80 
10 

4000 
400 
1000 
64. 
192. 
128. 
32. 



key bit locations--STRANGE things happen 
META keys-- 

mask off msl, rsh.lock and ms3 

mask off Ctrl, ms2, and Ish 

mask on. . . 

mask on. . . 

in word 

in word 1 

in word 

in word 1 

in word 

in word 1 

in word 

offset for shift key down, and for 

control down--add for control+shift 

offset for lock down ONLY 

length of circular buffer, in words 



;The following uart/read loop will ultimately be interrupt-driven 

;by the uart itself. Currently it tests the uart status, and if not re 



EncodeKbd: 
mov 
mov 
cbw 
add 
mov 
cbw 
sub 
mov 



YTX: 



mov 
mov 
mov 
add 
cmp 

jg 



KbdStatus,##0 
al .MXDelta 

MouseX,ax 
al ,MYDelta 

MouseY.ax 
bx,#2 

ax ,MouseX!bx 

cx,RMW!bx 

dx,RMX!bx 

cx,dx 

ax ,cx 

OOBC 



clear mouse buttons at beginning 

get X delta from read 

for add, convert to word 

and add delta 

get mouse Y byte 

for sub, convert to word 

and sub delta (y backwards!) 

do bounds checking on mouse 

first MouseY then MouseX 
first RMH then RMW 
first RMY then RMX 
for corner 
is MouseY > ClipH? 
yes. Out of Bounds CX 
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0862 3B C2 
0864 7C OD 

0866 83 EB 02 
0869 74 E5 
0868 EB OC 

086D 89 8F lA 20 
0871 EB F3 

0873 89 97 lA 20 
0877 EB ED 



0879 BA 00 00 

087C C7 06 06 10 00 00 

0882 Al 2D 20 

0885 8B IE 2F 20 

0889 B9 80 DO 
088C 85 CI 
088E 74 21 

0890 A9 00 80 
0893 74 05 

0895 80 OE 18 20 04 

089A A9 00 40 

QSgn 74 na 

089F FF C2 

08A1 C7 06 06 10 40 00 

08A7 A9 80 00 

08AA 74 05 

08AC 80 OE 18 20 01 

08B1 B9 90 04 

08B4 85 D9 

08B6 74 23 

OSES F7 C3 10 00 

08BC 74 08 

08BE FF C2 

08C0 C7 06 06 10 40 00 

08C6 F7 C3 00 04 

08CA 74 OA 

08CC FF C2 

08CE 81 06 06 10 CO 00 

08D4 EB 05 

08D6 80 OE 18 20 02 



08DB 83 FA 00 

08DE 75 OB 

08E0 A9 00 10 

08E3 74 06 

08E5 C7 06 05 10 80 00 



08EB 25 7F 2F 

08EE 81 E3 6F FB 

08F2 89 IE 2F 20 

08F6 A3 2D 20 

08F9 C7 06 02 10 04 00 

08FF C7 06 00 10 00 00 

0905 BE 03 00 

0908 8B 84 14 10 

090C 8B 9C 2A 20 

0910 33 C3 

0912 23 C3 

0914 75 15 



0916 89 9C 14 10 
091A 83 06 00 10 10 
091F FF C6 



51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

73 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 



N: 



ODBC: 



OOBD: 



FIB: 



Ml: 



M2: 



MetaWl: 



M3: 



M4: 



cmp 
jl 

sub 

J 

mov 
J 

mov 
J 



mov 
mov 
mov 
mov 

mov 
test 

jz 
test 

jz 
or 

test 

■1 -7 

J *- 

inc 
mov 

test 

or 

mov 
test 

test 

jz 

inc 

mov 

test 

U 

inc 

add 

j 
or 



TryLock: 

cmp 
jne 
test 

jz 
mov 

EndHetaKeys: 
and 
and 
mov 
mov 
mov 
mov 
mov 

NextWd: 

mov 
mov 
xor 
and 
jnz 

WewSetOfBits: 
mov 
add 
inc 



ax.dx 
OOBD 

bx,#2 

YTX 

FIB 

MouseXIbx ,cx 
N 

MouseXIbx, dx 
N 



dx,#0 

Offset, ##0 
ax.KWO 
bx.KWl 

cx,#OneMeta0 

ax, ex 

MetaWl 

ax,#MetaMBl 

Ml 

KbdStatus,#4 

ax,#MetaRS 

H2 

dx 

Offset,##OSShift 

ax,#MetaMB3 

MetaWl 

KbdStatus,#l 

cx,#OneMetal 

bx,cx 

TryLock 

bx,#MetaLS 

M3 

dx 

Offset, ##OSShift 

bx,#MetaC 

M4 

dx 

Offset, ##OSCTRL 

TryLock 

KbdStatus,#2 



;is MouseY < ClipY? 
;yes, Out Of Bounds DX 

loffset zero, now 
;go do X's 
;Forced In Bounds 

;force upper limit in MouseY/X 



iforce lower limit in MouseY/X 



forced in bounds 
means no META keys yet 
offset starts at 
ax=KbdData word 
bx=KbdData word 1 



;are any META keys down in WO? 

;No, try word 1 

;is it mouse button 1? 

;no, try next 

;turn the 4 bit on 

;is it right shift? 

' no 

;say META key down 

;make offset a shift 

;is mouse button 3 down? 

;no, try next 

;and a 1 in the status word 



any META keys down in this word? 

nope, go to end 

is it left shift? 

no, try control and MS2 

inc dx for shift flag 

;put shift offset in loc 

is it control? 

if it isn't, it's mouse button 2 
META key in effect 
add control offset 
now see if we can do ShiftLock 
MS2, and the two bit in 



dx,#0 ;is any other META key down? 

EndMetaKeys ;Yes, ignore if Lock down 

ax,#MetaLock ;is Lock down by itself? 

EndMetaKeys ;no, overridden by other METAs 

Off set,##OSLock ;yes, put lock offset in location 



ax,#ZeroMetaO 
bx ,#ZeroMetal 
KWl,bx 
KWO,ax 
Count, ##4 
BitsGone,##G 
si ,#WordZero 



zero the meta bits 

in both words 

put it back 

both words 

loop 4 times 

start with zeroth bit 

and word zero 



ax.OldKbdDataIsi ;get the data from UART fetch 

bx.KbdOata! si ;get old data from last int. 
ax.bx ;xor the words, then land in new, 

ax,bx ;giving l's=key w/down transition 

ProeessWord ;if not zero, process word 



OldKbdData! si ,bx ;save kbd word in old table 

BitsGone,##10 ;add lOH for next word 

si 
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0921 


FF 


C6 






127 




inc 


si 


0923 


FF 


OE 


02 


10 


128 




decw 


Count 


0927 


75 


OF 






129 




jnz 


NextWd 


0929 


EB 


6F 






130 
131 




J 


EndKbd 












132 


ProcessWord : 




092B 


C7 


06 


04 


10 01 00 


133 




mov 


Mask,##l 


0931 


B9 


10 


00 




134 
135 


MextBit 


mov 


ex. #10 


0934 


85 


06 


04 


10 


136 




test 


ax, Mask 


0938 


74 


57 






137 




jz 


NewBit 


093A 


8B 


16 


00 


10 


138 




mov 


dx,BitsGone 


093E 


03 


Dl 






139 




add 


dx ,cx 


0940 


FF 


CA 






140 




dec 


dx 


0942 


03 


16 


06 


10 


141 




add 


dx, Offset 


0946 


8B 


3E 


OC 


21 


142 




mov 


di .NIChars 


094A 


83 


FF 


00 




143 




cmp 


di,#0 


094D 


EB 


22 






144 




j 


EndIC 


094F 


89 


3E 


08 


10 


145 




mov 


Tempi ,di 


0953 


BF 


00 


00 




146 
147 
148 


MC: 


mov 


di,#0 


0956 


3B 


95 


OE 


21 


149 




cmp 


dx,ICList!di 


095A 


75 


09 






150 




jne 


NotThisOne 


095C 


FF 


C7 






151 




inc 


di 


095E 


89 


3E 


7A 


20 


152 




mov 


IntKey,di 


0962 


E9 


2C 


00 




153 
154 




jmp 


NewBit 












155 


NotThisOne: 




0965 


FF 


OE 


08 


10 


155 




decw 


Tempi 


0969 


74 


06 






157 




jz 


EndIC 


096B 


FF 


C7 






158 




inc 


di 


096D 


FF 


C7 






159 




inc 


di 


096F 


EB 


E5 






160 
161 
162 


EndIC: 


jmp 


NO 


0971 


8B 


3E 


38 


20 


163 




mov 


di,WritePtr 


0975 


Dl 


E7 






164 




shl 


di 


0977 


89 


95 


3A 


20 


165 




mov 


KbdBufferidi.dx 


097B 


Dl 


EF 






166 




stir 


di 


097D 


FF 


C7 






167 




inc 


di 


097F 


83 


FF 


20 




168 




cmp 


di,##CBLength 


0982 


75 


03 






169 




jne 


IncWP 


0984 


BF 


00 


00 




170 
171 


IncWP: 


mov 


di,##0 


0987 


3B 


3E 


36 


20 


172 




cmp 


di ,ReadPtr 


098B 


74 


04 






173 




Je 


NewBit 


098D 


89 


3E 


38 


20 


174 
175 


NewB i t : 


mov 


WritePtr, di 


0991 


Dl 


26 


04 


10 


176 




shlw 


Mask 


0995 


E2 


9D 






177 




loop 


NextBit 


0997 


E9 


7C 


FF 




178 
179 
180 


EndKbd: 


jmp 


NewSetOfBits 


099A 


Al 


38 


20 




181 




mov 


ax, WritePtr 


099D 


2B 


06 


36 


20 


182 




sub 


ax.ReadPtr 


09A1 


70 


03 






183 




jge 


NoAdd 


09A3 


05 


20 


00 




184 
185 


NoAdd: 


add 


ax,#CBlength 


09A6 


A2 


19 


20 




186 
187 




mov 


KbdStatus+l.al 


09A9 


C3 








188 

189 

190 

32 

33 




ret 

.END 

.Get 


"Z-Cursor.bca" 












1 
2 
3 
4 
5 


"' 


Z-Cursor. bca 












; 


Update 


the cursor coord 














Author 


Bruce Horn 












6 
7 


: 


Last cf 


langed: April 20, 












8 

9 


DoCursor: 




09AA 


2E 








10 




seg 


cs 



increment index reg 
decrement loop count 

;and loop back 

;End keyboard handler 



;one bit on 

;start with low order bit 

is this bit a 1? 

no, get the next bit 

get word*16 as bits 

add this bit number, -->index 

but it's off by one 

add the offset 

how many interrupt chars 

are there any interrupts? 

no, go to end (was je EndIc) 

save it in Tempi 

start with zero offset 



icompare with first character 
;not this character 
;zero=no chars, so add 1 
;save it in flag register 
;only 1 interrupt at a time 



;decrement count 
end if zero 
;go to next character 
; word/wide 
;go to next character 



;get writePointer for insertion 

; into word buffer 

;save the word 

;undo shift 

;inc write ptr tentatively 

;wrap around 



;Has the writepointer caught up 
;yes, don't inc after all 
;new writepointer 

shift the bit left in the word, 
and loop again 
otherwise get new 



;subtract read from write ptr. 
; if it's positive, ok 
;otherwise add buffer length 

;word of status(#chars in buf) 

;return to caller 



;move the cursor 
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09AB Al 62 21 

09AE 3D 00 GO 

09B1 74 02 

09B3 7C IF 



0985 B8 00 00 

0988 8E D8 

09BA 8E CO 

09BC Al 26 20 

09BF 3B 06 lA 20 

09C3 75 09 

09C5 Al 28 20 

09C8 38 06 IC 20 

09CC 74 06 



09CE 


E8 


04 


00 




09D1 


E8 


OA 


00 




09D4 


C3 








09D5 


2E 








09D6 


C5 


36 


22 


21 


09DA 


E8 


A8 


F8 




09DD 


C3 








09DE 


B8 


00 


00 




09E1 


8E 


D8 






09E3 


8E 


CO 






09E5 


Al 


lA 


20 




09E8 


A3 


25 


20 




09EB 


2B 


06 


5E 


21 


09EF 


A3 


3E 


21 




09F2 


Al 


IC 


20 




09F5 


A3 


28 


20 




09F8 


2B 


06 


60 


21 


09FC 


A3 


40 


21 




09FF 


C5 


36 


22 


21 


OA03 


E8 


7F 


F8 




OA06 


C3 









0120 
0120 
0120 
0122 
0124 
0126 



OOFC 
0077 
0057 
00E8 



0080 
0040 
0001 



0020 



11 
12 
13 
14 
16 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
34 
35 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 



Normal 



CR: 



NCR; 



BUOId: 



BltNew: 



mov 


ax.CursorLock 


cmp 


ax,#0 


je 


Mormal 


jl 


NCR 


mov 


ax,#CurrentDS 


mov 


ds.ax 


mov 


es.ax 


mov 


ax.OldMX 


cmp 


ax.MouseX 


jne 


CR 


mov 


ax.OldMY 


cmp 


ax,MouseY 


je 


NCR 


call 


BltOld 


call 


BltNew 



should I ignore this cursor? 

;no--it's ok 
if less than zero, no cursor 



ret 



seg 
Ids 
call 
ret 

mov 

mov 

mov 

mov 

mov 

sub 

mov 

mov 

mov 

sub 

mov 

Ids 

call 

ret 

.END 



;has mouse x loc changed? 
;yes, must do cursor 

;has mouse Y changed? 
;no, don't do cursor 

;blt out old cursor 
;then bit in new 

;return to caller 



cs 

si , .CursorTable ;get address of table 

BitBlt ;blt the cursor out 



ax,#CLirrentns 

ds.ax 

es.ax 

ax.MouseX 

OldMX.ax 

ax.CursorXOff 

CursorX.ax 

ax.MouseY 

OldMY.ax 

ax.CursorYOff 

CursorY.ax 

si , .CursorTable 

BitBlt 



;BitBLT saves DS 



;blt 



cursor table 

new cursor in at new pos 



.Get "Z-DRW.bca" 
Z-DRW.bca 



; disk code 



This program loads and stores core images on the floppy 

disk in a fixed format: 128 bytes/sector, 16 sectors/track. 

For read, it is given a starting address and an ending 

address to load--it assumes that the correct disk is in. and 

that it starts at track zero, sector zero. 

Author: Bruce Horn 

Last Edited: May 7, 1979 2:00 AM 



;Disk 10 ports 
Port = 
StatReg = 
CmdReg = 
TrackReg = 
SectorReg = 
DataReg = 

;Disk commands 

RstCmd= 

RdCmd= 

WrCmd= 

SeCmd= 

-.Status bits- 
NotReady= 
WrtProtect= 
Busy = 

;Status bits- 
HdLoad= 



0120 ;Address of controller 

Port ;Status Register in WD 1791 

Port ;Command Register 

Port+2 ;Track Register 

Port+4 ;Sector Register 

Port+6 ;Data Register 



OFC ;Restore 

077 ;Read 

057 ;Write 

0E8 ;Seek (w/verify--no verify. OEC) 



-Type I and Type II commands 



080 
040 
001 



disk not ready 
Write protect tab on 
command in progress 



type I commands only 
020 ;Head loaded 
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0010 
0004 
0002 



0010 
0008 
0004 
0002 



0067 



0003 



0010 



OOIC 



0AO7 
OA08 
OAOB 
GAGE 
OAll 
0A12 
0A15 
0A18 
OAIB 
OAIE 
0A21 
0A24 
0A26 
0A28 

0A2B 
0A2E 
0A30 
0A32 
0A35 
0A37 
0A3A 
CASE 
0A41 
0A45 
0A47 
0A4A 
0A4D 
0A50 
0A53 
0A55 
0A58 
0A5B 
0A5E 
0A60 
0A63 
0A66 
0A69 
0A6C 



2E 

Al 87 OD 
E8 35 FC 
E8 20 FC 
2E 

Al 65 OD 
E8 2B FC 
E8 92 FC 
E8 EE FB 
E8 GO FC 
88 00 00 
8E D8 
8E CO 
E8 IB 01 

88 00 00 

8E D8 

8E CO 

A2 56 10 

FE CO 

A2 57 10 

88 3E 58 10 

E8 B8 00 

88 36 58 10 

8B 04 

A3 48 10 

88 44 02 

A3 4C 10 

A3 60 10 

88 F8 

88 44 04 

A3 4E IG 

A3 52 10 

8E CO 

88 44 06 

A3 54 10 

88 44 08 

A3 44 10 

C7 06 4A 10 08 00 



0A72 FE 06 57 

0A76 FE 06 57 

0A7A E8 7C 00 

0A7D E8 OB 01 

0A8O BA 20 01 
0A83 EC 

0A84 34 FF 

0A86 A8 IC 



10 
10 



32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 



SeekErr= 010 ;Track not verified 
Track00= 004 ;Track zero 
Index= 002 ; index mark passed 

;Status bits--type II commands only 



RNF = 
CRCErr= 
LostData= 
DataRQ= 



010 
008 
004 
002 



Record Not Found 

CRC check invalid 

8086 couldn't keep up with 1791 

1971 wants data 



;Non error status bits--mask off on read status--typ6 I 
;TrackOO or Index or WrtProtect or HdLoad or Busy 
NonErrI= 067 

;Mon error status bits--mask off on read status--type II 
;DataRQ or Busy 
NonErrII= 003 

;Status bits for recoverable errors--Type I 

;SeekErr 

RecErrI= 010 

-.Status bits for recoverable errors--Type II 
;RNF or CRCErr or LostData 
RecErrII= OIC 



LoadDisk: 



ReadNext: 



seg 

mov 

call 

call 

seg 

mov 

call 

call 

call 

call 

mov 

mov 

mov 

call 

mov 

mov 

mov 

mov 

inc 

mov 

mov 

call 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

inc 

inc 

call 

call 

mov 

ind 

xor 

test 



cs 

ax, .LoadOiskCursor 

ShowNewCursor 

WaitBug 

cs 

ax, . NormalCursor 

ShowNewCursor 

HideCursor 

IntsOff 

DisplayOff 

ax,#G 



ds.ax 
es.ax 
DiskStart 

ax,#G 

ds.ax 

es.ax 

Track, al 

al 

Sector, al 

di , .Buffer 

ReadTS 

si , .Buffer 

ax,00!si 

WextDisk, ax 

ax,02!si 

BeginAdr,ax 

OldAdr.ax 

di ,ax 

ax, 04! si 

BeginSeg ,ax 

OldSeg.ax 

es.ax 

ax,06!si 

Blocks, ax 

ax, 08! si 

JumpTo.ax 

ReTry,##8. 

Sector 

Sector 

ReadTS 

DiskWait 

dx,#StatReg 

al,#0FF 
al,#RecErrII 



•,mask off interrupts 
;Zero the segments 



;Zero the segments 

;the Track register, 

;and set sector to 1 

;Write first sector to Buffer 



;Byte address 
;Continuation disk needed? 

;Load from this address 



in this segment 



;this many blocks 

;and when done, jump to 
;8 retries on dsk error 



;wait for status ok 



; recoverable error? 
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0A88 


74 


IB 






108 


jz 


SectorOK 


0A8A 


Al 


50 


10 




109 


mov 


ax.OldAdr 


0A8D 


8B 


F8 






110 


mov 


di.ax 


0A8F 


Al 


52 


10 




111 


mov 


ax.OldSeg 


0A92 


8E 


CO 






112 


mov 


es.ax 


0A94 


FE 


OE 


57 


10 


113 


dec 


Sector 


0A98 


FE 


OE 


57 


10 


114 


dec 


Sector 


0A9C 


FF 


OE 


4A 


10 


115 


decw 


ReTry 


OAAO 


75 


DO 






116 


jnz 


ReadNext 


0AA2 


E9 


38 


01 




117 
118 


SectorOK: 


DiskFail 


0AA5 


8B 


C7 






119 


mov 


ax.d-i 


0AA7 


8C 


C3 






120 


mov 


bx.es 


0AA9 


E8 


IB 


01 




121 


can 


NextAdr 


OAAC 


8E 


C3 






122 


mov 


es.bx 


OAAE 


8B 


F8 






123 


mov 


di ,ax 


OABO 


FF 


OE 


54 


10 


124 


decw 


Blocks 


0AB4 


75 


24 






125 


jnz 


RNS 


0AB6 


Al 


48 


10 




126 


mov 


ax.MextDisk 


0AB9 


3D 


01 


00 




127 


cmp 


ax,#l 


OABC 


EB 


09 






128 


J 


DR 


OABE 


E8 


57 


FB 




129 


call 


IntsOn 


OACl 


E8 


65 


FB 




130 


call 


DisplayOn 


0AC4 


E9 


40 


FF 




131 


jmp 


LoadFloppy 


0AC7 


C7 


06 


42 


10 00 00 


132 


DR: mov 


DStatus,##0 


OACD 


E8 


Al 


00 




133 


call 


DiskStop 


OADO 


E8 


45 


FB 




134 


call 


IntsOn 


0AD3 


eg 




FB 




135 


call 


nTcni av'Op, 


0AD6 


E8 


E7 


FB 




136 


call 


ShowCursor 


0AD9 


C3 








137 


ret 




OADA 


AO 


57 


10 




138 


RNS: mov 


al .Sector 


OADD 


3C 


OF 






139 


cmp 


al,#15. 


OADF 


7C 


91 






140 


jl 


ReadNext 


OAEl 


7F 


07 






141 


jg 


Ql 


0AE3 


C6 


06 


57 


10 00 


142 


mov 


Sector, #0 


0AE8 


EB 


88 






143 


jmp 


ReadMext 


OAEA 


FE 


06 


56 


10 


144 


Ql: inc 


Track 


OAEE 


E8 


27 


00 




145 


call 


Seek 


OAFl 


C6 


06 


57 


10 FF 


146 


mov 


Sector, ffOFF 


0AF6 


E9 


79 


FF 




147 
148 
149 
150 


jmp 
ReadTS: 


ReadMext 


0AF9 


B3 


77 






151 


mov 


bl,#RdCmd 


OAFB 


E8 


AC 


00 




152 


call 


DiskSetup 


OAFE 


B4 


00 






153 


mov 


ah,#0 


OBOO 


EB 


09 






154 
155 


J 
ReadData: 


ReadLoop 


0B02 


BA 


26 


01 




156 


mov 


dx,#DataReg 


0B05 


EC 








157 


ind 




0B06 


34 


FF 






158 


xor 


al,#OFF 


0B08 


AA 








159 


stob 




0B09 


FE 


C4 






160 
161 


inc 
ReadLoop: 


ah 


OBOB 


BA 


20 


01 




162 


mov 


dx,#StatReg 


OBOE 


EC 








163 


ind 




OBOF 


A8 


02 






164 


test 


al,#DataRQ 


OBll 


74 


EF 






165 


jz 


ReadData 


0B13 


A8 


01 






166 


test 


al,#Busy 


0B15 


74 


F4 






167 


jz 


ReadLoop 


0B17 


C3 








168 
169 
170 


ret 
Seek: 




0B18 


2E 








171 


seg 


cs 


0B19 


C7 


06 


4A 


10 08 00 


172 


mov 


ReTry, ##8. 


OBIF 


2E 








173 


seg 


cs 


0B20 


AO 


56 


10 




174 


mov 


al , Track 


0B23 


34 


FF 






175 


xor 


al,#OFF 


0B25 


BA 


26 


01 




176 


mov 


dx,#DataReg 


0B28 


EE 








177 


outd 




0B29 


BO 


E8 






178 


mov 


al,#SeCmd 


0B2B 


BA 


20 


01 




179 


mov 


dx,#CmdReg 


0B2E 


EE 








180 


outd 




0B2F 


E8 


59 


00 




181 


call 


DiskWait 


0B32 


BA 


20 


01 




182 


mov 


dx,#StatReg 


0B35 


EC 








183 


ind 





;no, its ok 
;restore old address 

;and old segment 

;for later IMC 



;was jne DR (changed for test) 

;next disk flag on, otherwise 
;deselect drive 

;Return to caller 



i, with 2 incs, gives i 



invert from WD bus 
store into di/es 



;Data request? 
lyes, read more data 
;is it still busy? 
;yes, wait again 



; Invert for WD bus 
send it track number 



;Do seek 

;wait for dsk to be ready 



Z-IOP.ls 



20-Jun-79 10:23:38 



Page 26 



0B36 


34 


FF 




184 


xor 


al,#0FF 


0B38 


A8 


10 




185 


test 


al ,#RecErrI 


0B3A 


75 


01 




186 


jnz 


SeekError 


0B3C 


C3 






187 
188 


ret 
SeekError: 




0B3D 


FF 


OE 


4A 10 


189 


decw 


ReTry 


0B41 


75 


D5 




190 


jnz 


Seek 


0B43 


E9 


97 


00 


191 
192 
193 
194 
195 


DiskStart: 


DiskFail 


0B46 


88 


04 


00 


196 


mov 


ax, #4 


0B49 


BB 


07 


FF 


197 


mov 


bx,#DiskDrive 


0B4C 


E8 


07 


FB 


198 


call 


SetPlOO 


0B4F 


E8 


AA 


FA 


199 


call 


WaitASecond 


0B52 


B8 


00 


00 


200 


mov 


ax.#0 


0B55 


BB 


FF 


EF 


201 


mov 


bx,#DiskMR 


0B58 


E8 


FB 


FA 


202 


call 


SetPlOO 


0B5B 


E8 


9E 


FA 


203 


call 


WaitASecond 


0B5E 


B8 


01 


00 


204 


mov 


ax,#l 


0B61 


BB 


FF 


EF 


205 


mov 


bx,#DiskMR 


0B64 


E8 


EF 


FA 


206 


call 


SetPlOO 


0B67 


E8 


21 


00 


207 


call 


DiskWait 


0B6A 


E8 


8F 


FA 


208 


call 


WaitASecond 


0B6D 


E8 


11 


00 


209 


call 


DiskRestore 


0B70 


C3 






210 
211 
212 


ret 
DiskStop: 




0B71 


E8 


17 


00 


213 


call 


DiskWait 


0B74 


E8 


OA 


00 


214 


call 


DiskRestore 


0B77 


B8 


00 


00 


215 


mov 


ax,#0 


0B7A 


BB 


C7 


FF 


216 


mov 


bx,#DiskDrive 


0B7D 


E8 


D6 


FA 


217 


call 


SetPlOO 


0B8O 


C3 






218 
219 
220 


ret 
DiskRestore: 




0881 


BO 


FC 




221 


mov 


al ,#RstCmd 


0B83 


BA 


20 


01 


222 


mov 


dx.ffCmdReg 


0B86 


EE 






223 


outd 




0B87 


E8 


01 


00 


224 


call 


DiskWait 


0B8A 


C3 






225 
226 
227 


ret 
DiskWait: 




0B8B 


BA 


20 


01 


228 


mov 


dx,#StatReg 


0B8E 


EC 






229 


ind 




0B8F 


A8 


01 




230 


test 


al ,#Busy 


0B91 


74 


F8 




231 


jz 


DiskWait 


0B93 


C3 






232 
233 
234 


ret 
DiskPwrOn: 




0B94 


B8 


02 


00 


235 


mov 


ax, #2 


0B97 


BB 


FC 


FF 


236 


mov 


bx,#DiskPower 


0B9A 


E8 


B9 


FA 


237 


call 


SetPlOO 


0B9D 


E8 


5C 


FA 


238 


call 


WaitASecond 


OBAO 


B8 


03 


00 


239 


mov ax, #3 




0BA3 


BB 


FC 


FF 


240 


mov 


bx,#DiskPower 


0BA6 


E8 


AD 


FA 


241 


call 


SetPlOO 


0BA9 


C3 






242 
243 
244 


ret 
DiskSetup: 




OBAA 


E8 


DE 


FF 


245 


call 


DiskWait 


OBAD 


FC 






246 


eld 




OBAE 


2E 






247 


seg 


cs 


OBAF 


AO 


57 


10 


248 


mov 


al .Sector 


0BB2 


34 


FF 




249 


xor 


al,#OFF 


0BB4 


BA 


24 


01 


250 


mov 


dx,#SectorReg 


0BB7 


EE 






251 


outd 




0BB8 


8A 


C3 




252 


mov 


al.bl 


OBBA 


BA 


20 


01 


253 


mov 


dx,#CmdReg 


OBBD 


EE 






254 
255 


outd 
WaitBusy: 




OBBE 


BA 


20 


01 


256 


mov 


dx,#StatReg 


OBCl 


EC 






257 


ind 




0BC2 


A8 


01 




258 


test 


al ,#Busy 


0BC4 


74 


F8 




259 


jz 


WaitBusy 



;wait for the disk to spin up 

;wait a second on disk-mr 

;disk MR may restore disk 
;but if it doesn't. . . 



;deselect drive 

;send command 

;wait for it to be ready 

;get status register contents 

; is it stil 1 busy? 
;yes, try again, 
lOtherwise return 

;Turn on first +5, then +12 



;wait for disk to be ready 
;clear direction 

;set sector 

; invert for WD bus 



get command number 
send command 



;get status register contents 

; is it busy yet? 
command not yet executing 
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0BC6 C3 



0BC7 8B DO 

0BC9 B9 04 00 

OBCC D3 EA 

OBCE 03 DA 

OBDO 25 OF 00 

0BD3 2E 

0BD4 A3 50 10 

0BD7 2E 

0BD8 89 IE 52 10 



OBDC C3 



OBDD 


B8 


OC 


00 


OBEG 


BB 


FO 


FF 


0BE3 


E8 


7A 


FA 


0BE6 


FB 






0BE7 


BA 


20 


01 


OBEA 


EC 






OBEB 


34 


FF 




OBED 


2E 






OBEE 


A3 


42 


10 


OBFl 


E8 


24 


FA 


0BF4 


E8 


32 


FA 


0BF7 


2E 






0BF8 


Al 


A9 


00 


OBFB 


E8 


45 


FA 


OBFE 


EB 


FE 





21A0 
0017 
0010 



OCOO B8 00 00 

0C03 8E D8 

0C05 8E CO 

0C07 FC 

0C08 B9 17 00 

OCOB 8B 36 13 OD 

OCOF BF 36 21 

0C12 89 3E 22 21 

0C16 A3 24 21 

0C19 F2 

OCIA A5 

OCIB B9 10 00 

OCIE 8B 36 43 OD 

0C22 BF AO 21 

0C25 F2 

0C26 A5 



0C27 B8 00 00 

0C2A B9 06 00 

0C2D BF 2A 20 

OC30 F2 

0C31 AB 

0C32 B9 06 00 



260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

28? 

288 

289 

290 

291 

292 

36 

37 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 



ret 



;ax = byte address, bx = segnient address 
NextAdr: 



mov 

mov 

shrv 

add 

and 

seg 

mov 

seg 

mov 

ret 



DiskFail 



DF; 



mov 

mov 

call 

sti 

mov 

ind 

xor 

seg 

mov 

call 

call 

c an 
--a 

mov 

call 

J 



dx.ax 

ex, #4 

dx 

bx ,dx 

ax,#OF 

cs 

GldAdr.ax 

cs 

01dSeg,bx 



ax,#OC 

bx,#LedsOn 

SetP20 

dx,#StatReg 

al,#OFF 

cs 

DStatus ,ax 

IntsOn 

DisplayOn 

cs 

ax , . ErrorCursor 

ShowfJewCursor 

DF 

.End 

"Z-RI.bca" 



;get byte address 

;and shift right by four for 

;segment address to be added to 

;old segment register 

;save low 4 bits of byte address 



;set interrupts 

;get status register 
; invert for WD bus 

;save it 



;halt machine 



; rom initialization 



.Get 

Z-RI.bca 

This file contains all the necessary tables for 

normal execution in rom. Page 1 locations {at 2000H) 

will be initialized by a rep/movw sequence. 

Author: Bruce Horn 

Last edited: May 7, 1979 12:34 AM 



CursorToBe= 

CBTblLength= 

CBMapLength= 

Romlnit: 

mov 
mov 
mov 
eld 
mov 
mov 
mov 
mov 
mov 
rep 
movw 

mov 
mov 
mov 
rep 
movw 



21A0 

23. 

16. 



;location of cursor bitmap 

;in words, including offsets/lock 

;in words 



ax,#CurrentDS 

ds.ax 

es ,ax 

; incrementing 
ex ,#CBTblLength ;how many words to move 
si, .CBTbl 

di ,#CursorTable ;address of table to be 
.CursorTable.di ;save address in loc 
.CursorTable+2 ,ax ;and its segment 



cx,#CBMapLength 

si , .Crsr 

di ,#CursorToBe 



;and bit table up 

length of cursor bitmap 
address of cursor 
and its destination 



;blt table up 
;Zero registers, keyboard data blocks... 

mov ax,#0 ;to zero registers 

;clear KbdData block... 



mov 


ex, #6. 


mov 


di,#KbdData 


rep 




stow 




mov 


ex, #6. 
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0C35 


BF 


14 


10 








42 


mov 


di,#01dKbdData 


and OldKbdData block. .. 


0C38 


F2 












43 


rep 






0C39 


AB 












44 
45 
46 


stow 






0C3A 


C7 


06 


OC 


10 


03 


00 


mov 


PortlOO.MS 


initial port 100 bits 


OC40 


C7 


06 


OE 


10 


00 


00 


47 


mov 


Port60,##0 


and port60 bits 


0C46 


C7 


06 


10 


10 


88 


00 


48 


mov 


Port20,##88 


and port 20 bits 


0C4C 


C7 


06 


12 


10 


OC 


00 


49 


mov 


KbdOffset,##12. 


Kbdint won't hit before Oddint 


0C52 


A3 


26 


20 








50 


mov 


OldMX.ax 


last MX 


0C55 


A3 


28 


20 








51 


mov 


OldMY.ax 


last MY 


0C58 


A3 


lA 


20 








52 


mov 


MouseX.ax 


MouseX 


0C5B 


A3 


IC 


20 








53 


mov 


MouseY.ax 


MouseY 


0C5E 


A3 


36 


20 








54 


mov 


ReadPtr.ax 


ReadPtr 


0C61 


A3 


38 


20 








55 


mov 


V/ritePtr,ax 


WritePtr 


0C64 


A3 


18 


20 








56 


mov 


KbdStatus.ax 


Keyboard Status 


0C67 


A3 


14 


20 








57 


mov 


ICount ,ax 


interrupt ctr. 


0C6A 


A3 


OC 


21 








58 


mov 


NIChars.ax 


interrupt chars 


0C6D 


A3 


IE 


20 








59 


mov 


RMX.ax 


lower limit of mouse x,y 


0C7O 


A3 


20 


20 








60 


mov 


RMY.ax 


is zero 


0C73 


C7 


06 


00 


20 


85 


02 


61 


mov 


.BitBlt,##BitBlt 


;address of BitBlt 


0C79 


C7 


06 


02 


20 


56 


06 


62 


mov 


.SetP100,##SetP100 ;address of SetPlOO 


0C7F 


C7 


06 


04 


20 


60 


06 


63 


mov 


.SetP20,MSetP20 




0C85 


C7 


06 


06 


20 


99 


06 


64 


mov 


.InitDC,##InitDC 




0C8B 


C7 


06 


08 


20 


AD 


06 


66 


mov 


.HideCursor,##HideCursor 


0C91 


C7 


06 


OA 


20 


CO 


06 


66 


mov 


.Showcursor ,##ShowCursor 


0C97 


C7 


06 


OC 


20 


00 


OC 


67 


mov 


.RomInit,##RomInit 


0C9D 


C7 


06 


30 


10 


43 


06 


68 


mov 


.ShowNewCursor,##ShowWewCursor 


OCAS 


C7 


06 


32 


10 


29 


06 


69 


rnoy 


. Displ ayOn ,#*Displai'Or! 


0CA9 


C7 


06 


34 


10 


21 


06 


70 


mov 


.DisplayOff ,##DisplayOff 


OCAF 


C7 


06 


36 


10 


31 


06 


71 


mov 


.WaitBug ,##waitBug 


0CB5 


C7 


06 


38 


10 


3A 


06 


72 


mov 


-WaitNoBug ,##WaitNoBug 


OCBB 


C7 


06 


3A 


10 


18 


06 


73 


mov 


.IntsOn.MIntsOn 




OCCl 


C7 


06 


3C 


10 


OC 


06 


74 
75 
76 


mov 


.IntsOff ,##IntsOff 
















;Clear screen 






0CC7 


C5 


36 


22 


21 






77 


Ids 


si , .CursorTable 


get table for bitblt 


0CC8 


88 


44 


14 








78 


mov 


ax, CI ipWlsi 


upper limit of mouse x,y 


OCCE 


A3 


22 


20 








79 


mov 


RMW.ax 


is clipping corner 


OCDl 


88 


44 


16 








80 


mov 


ax, CI ipHIsi 




0CD4 


A3 


24 


20 








81 


mov 


RMH.ax 




0CD7 


B8 


80 


02 








82 


mov 


ax, #640. 


full width 


OCDA 


89 


44 


OC 








83 


mov 


DestW! si ,ax 


for bitblt table 


OCDD 


88 


EO 


01 








84 


mov 


ax, #480. 


and full height 


OCEO 


89 


44 


OE 








85 


mov 


DestHlsi ,ax 


before screen clear 


0CE3 


88 


OC 


00 








86 


mov 


ax,#StcBB 




0CE6 


89 


44 


24 








87 


mov 


Functionisi ,ax 




0CE9 


B8 


00 


00 








88 


mov 


ax,#White 




OCEC 


89 


44 


26 








89 


mov 


GrayBitsIsi ,ax 




OCEF 


E8 


93 


F5 








90 


can 


BitBlt 


clear screen white 


0CF2 


2E 












91 


seg 


cs 




0CF3 


C5 


36 


22 


21 






92 


Ids 


si , .CursorTable 




0CF7 


B8 


10 


00 








93 


mov 


ax, #16. 


cursor width 


OCFA 


89 


44 


OC 








94 


mov 


DestW! si ,ax 




OCFD 


89 


44 


OE 








95 


mov 


DestHlsi, ax 




ODOO 


B8 


02 


00 








96 


mov 


ax,#XorBB 




OD03 


89 


44 


24 








97 


mov 


Functionisi ,ax 


make sure function is xor 


OD06 


B8 


FF 


FF 








98 


mov 


ax,#Black 


with all ones 


OD09 


89 


44 


26 








99 


mov 


GrayBitsIsi ,ax 




ODOC 


E8 


EF 


F9 








100 


call 


lOInit 


turn on CRT, keyboard 


ODOF 


E8 


AE 


F9 








101 


call 


ShowCursor 


now put up first cursor 


0D12 


C3 












102 
103 


ret 




and return to caller 


0D13 


15 


OD 










104 
105 
106 


.CBTbl: .adr 
CBTbl: 


CBTbl 




0D15 


00 


40 










107 


.adr 


4000 


byte - destination bitmap 


0D17 


00 


00 










108 


.adr 





seg 


0D19 


28 


00 










109 


.adr 


40. 


raster 


ODIB 


80 


25 










110 


.adr 


240. *40. 


field size 


ODID 


00 


00 










111 


.adr 


0. 


x - destination rectangle 


ODIF 


00 


00 










112 


.adr 


0. 


y 


0D21 


10 


00 










113 


.adr 


16. 


width 


0D23 


10 


00 










114 


.adr 


16. 


height 


0D25 


00 


00 








* 


115 


.adr 


0. 


X - clipping rectangle 


0D27 


00 


00 










116 


.adr 


0. 


y 


0D29 


80 


02 










117 


.adr 


640. 


width 
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0D2B 


EO 


01 


0D2D 


AO 


21 


0D2F 


00 


00 


0D31 


01 


00 


0D33 


08 


00 


0D35 


00 


00 


0D37 


00 


00 


0D39 


02 


00 


0D3B 


FF 


FF 


0D3D 


00 


00 


0D3F 


00 


00 


0D41 


FF 


FF 


0D43 


45 


OD 


0D45 


00 


FF 


0D47 


00 


FE 


0D49 


00 


FC 


0D4B 


00 


E7 


004D 


FF 


01 


0D4F 


00 


00 


0D51 


86 


C8 


0D53 


80 


98 


0D55 


00 


FF 


OD57 


00 


FC 


0D59 


00 


FE 


0D5B 


80 


C3 


0D5D 


FF 


00 


0D5F 


E6 


8B 


0D61 


86 


A8 


0D63 


86 


88 



0D65 


67 


OD 


0D67 


00 


FF 


0D69 


00 


FE 


0D6B 


00 


FC 


0D6D 


00 


E7 


0D6F 


FF 


01 


0D71 


00 


00 


0D73 


86 


C8 


OD75 


80 


98 


0D77 


00 


FF 


0D79 


00 


FC 


0D7B 


00 


FE 


0D7D 


80 


C3 


0D7F 


FF 


00 


0D81 


E6 


8B 


0D83 


86 


A8 


0D85 


86 


88 


0D87 


89 


OD 


0D89 


00 


00 


0D8B 


AA 


8A 


0D8D 


AA 


8A 



118 


.adr 


480. 


height 


119 


. adr 


CursorToBe 


byte 


- source bitmap 


120 


. adr 


CurrentOS 


seg 




121 


.adr 


1. 


raster 


122 


.adr 


8. 


field size 


123 


.adr 


0. 


X - source origin 


124 


. adr 


0. 


y 




125 


.adr 


02 


(xor) 


126 


.adr 


OFFFF 


black 


127 










128 


.adr 





offset X 


129 


.adr 





offset y 


130 










131 


.adr 


OFFFF 


cursor lock {<0 mean 


132 










133 


Crsr: .adr 


Cursor 






134 










135 Cursor: 








136 


. adr 


OFFOO 


1 ine 





137 


. adr 


OFEOO 


1 ine 


2 


138 


.adr 


OFCOO 


1 ine 


4 


139 


.adr 


0E700 


1 ine 


6 


140 


. adr 


OOIFF 


1 ine 


8 


141 


.adr 


00000 


1 ine 


10 


142 


.adr 


0C886 


1 ine 


12 


143 


. adr 


09880 


1 ine 


14 


144 


.adr 


OFFOO 


1 ine 


1 


145 


. ad p 


QFCQQ 


1 i ne 


3 


146 


.adr 


OFEOO 


1 ine 


5 


147 


. adr 


0C380 


1 ine 


7 


148 


.adr 


GOOFF 


1 ine 


9 


149 


. adr 


08BE6 


1 ine 


11 


150 


.adr 


0A886 


1 ine 


13 


151 


.adr 


08886 


1 ine 


15 of cursor 


152 










153 










154 










155 


.end 








38 










39 


.Get 


"Z-CursorBitmaps 


bca" 


;Cursors 


1 
2 
3 


Z-Curso 


rBitmaps.bca 






Contains various cursor bitmaps for 


4 


sending 


low-level messages to 


user 


5 


Author: 


Bruce Horn 






6 
7 


Last ch 


anged: May 7, 1979 1:56 AM 


8 

9 


NormalCursor: 








10 


.adr 


NormalCursor 






11 










12 I 


Jo rmal Cursor: 








13 


. adr 


OFFOO 




ne 





14 


.adr 


OFEOO 




ne 


2 


15 


.adr 


OFCOO 




ne 


4 


16 


.adr 


0E700 




ne 


6 


17 


.adr 


OOIFF 




ne 


8 


18 


. adr 


00000 




ne 


10 


19 


.adr 


0C886 




ne 


12 


20 


.adr 


09880 




ne 


14 


21 


.adr 


OFFOO 




ne 


1 


22 


.adr 


OFCOO 




ne 


3 


23 


.adr 


OFEOO 




ne 


5 


24 


.adr 


0C380 




ne 


7 


25 


.adr 


OOOFF 




ne 


9 


26 


.adr 


08BE6 




ne 


11 


27 


.adr 


0A886 




ne 


13 


28 


.adr 


08886 


1 ine 


15 of cursor 


29 










30 


LoadDiskCursor 








31 


.adr 


LoadDiskCursor 






32 










33 I 


-oadOiskCursor: 








34 


.adr 


00000 


1 ine 





35 


.adr 


08AAA 


line 


2 


36 


.adr 


08AAA 


It 


ne 


4 
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0D8F 


00 


00 


0D91 


EA 


CE 


0D93 


4C 


A4 


0D95 


EA 


EE 


0D97 


80 


00 


0D99 


EC 


8E 


0D9B 


EA 


8A 


0D9D 


AE 


EE 


0D9F 


00 


00 


ODAl 


8C 


A4 


0DA3 


2A 


A4 


0DA5 


00 


00 


0DA7 


80 


00 


0DA9 


AB 


00 


ODAB 


FF 


00 


ODAD 


FE 


00 


ODAF 


FC 


00 


ODBl 


E7 


00 


0DB3 


01 


FF 


0DB5 


00 


00 
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